本文整理自网络,侵删。
procedure TForm1.Timer1Timer(Sender: TObject);begin Timer1.Interval := 100; if ActiveControl <> nil then ActiveControl.Left := ActiveControl.Left + 10;
if ActiveControl.Left>Form1.Width then begin ActiveControl.Left:=0; end;end;
相关阅读 >>
Delphi winapi: inflaterect - 改变矩形大小
Delphi Delphi 学习大师qq群讨论的字符串位置替换方法
Delphi superobject json操作类的基本用法
更多相关阅读请进入《Delphi》频道 >>