procedure TForm1.Timer1Timer(Sender: TObject); begin label1.Top:=label1.Top-2; if label1.Top<10 then label1.Top:=500; end;procedure TForm1.FormCreate(Sender: TObject); begin timer1.Interval:=25; label1.Transparent:=true; label1.Caption:='测试飞行效果!'; self.DoubleBuffered:=true;end;
begin
label1.Top:=label1.Top-2;
if label1.Top<10 then label1.Top:=500;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Interval:=25;
label1.Transparent:=true;
label1.Caption:='测试飞行效果!';
self.DoubleBuffered:=true;end;