晕,有多困难呀,放个TIMER,一句话就解决了,类似的下面,为防止闪烁可设置
FORM.DOUBLEBUFFED
begin
if not boo then
Label_roll.Left:= Label_roll.Left+1
else
Label_roll.Left:= Label_roll.Left-1;
if Label_roll.Left+Label_roll.Width> Panel_top.Width-10 then
boo:=true
else
if Label_roll.Left <10 then
boo:=false;
end;
