描述

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

代码

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