描述

在窗体上放置一个TTimer对象，然后在OnTimer事件中设置事件为Timer1Timer。再放其它控件放在窗体上，下面的事件代码，把焦点控件每100毫秒向右移动一个像素。

代码

procedure TForm1.Timer1Timer(Sender: TObject); begin   Timer1.Interval := 100;   if ActiveControl <> nil then     ActiveControl.Left := ActiveControl.Left + 1; end;