如何实现label的字幕动画?(40分)

  • 主题发起人 主题发起人 kunhong
  • 开始时间 开始时间
K

kunhong

Unregistered / Unconfirmed
GUEST, unregistred user!
请问各位一个有点弱的问题,我想让form上的一个label在form打开的时候自动从form最下面升起到某一位置,请问该如何实现?是否是控制label的top值还是其他?
 
可以这样 ,你也可以使用lmd的控件,有现成的可以使用。
 
用定时器然后控制label的位置
 
晶晶的,简单就是好
 
定时改变label1.top和label1.left的值不就可以
 
用定时器控制LABEL的位置好像会闪的吧?以前看过人家这么做。
 
通过time1计时,然后再设置label1的属性。如:top、left、catpion+空格
 
最简单的是timer控件,来改变lable的top,left
 
把form的doublebuffer:=true就不闪了
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.Top>0 then
label1.Top:=label1.Top-4
else
label1.Top:=304;
end;
 
多人接受答案了。
 
后退
顶部