在窗体上放置一个TTimer对象，并在OnTimer事件中输入Timer1Timer。将其他控件放置在窗体上，并在运行时更改活动控件。下面的事件处理程序通过每100毫秒向右移动一个像素来响应计时器事件。

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

翻译由网淘巴完成，转载必须标明出处：ActiveControl (Delphi)实例_delphi_网淘巴 (wtao8.com)

<p>ActiveControl 是针对可以获得focus的控件，如edit,而且通过setfocus()来实现</p>

天猫隐藏优惠券

网淘吧

部分文章来自各大搜索引擎，如有侵权，请与我联系删除。

打赏

微信扫一扫，打赏作者吧～