Question

请问如何实现label等一些文字标签的渐隐渐现效果？

Answer 1

procedure 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也是画上去的。 查看更多答案>>