Vcl.Forms.TCustomForm.ActiveControl 示例


描述

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


代码



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



联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678