发布网友 发布时间:2023-07-19 22:27
共1个回答
热心网友 时间:2024-12-13 23:27
procere TForm1.Button1Click(Sender: TObject);var i:integer;var Str:String;begin Str:='Hello'; For i:=1 to 5 do begin Form1.Canvas.Font.Color:=RGB(10,100,50+20*i); Form1.Canvas.TextOut(10+10*i,10,Str[i]); end;end;//这个实现一串字从左到右,颜色变化。在配合timer,效果应该不错。实际上Label也是画上去的。 查看更多答案>>