ActiveControl (Delphi)实例
2021-08-12
新闻来源:网淘巴
围观:854
''
在窗体上放置一个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>
以下内容需要兑换:
本文链接:https://www.wtao8.com/post/149.html 转载需授权!
上一篇:多足动物步态分析
下一篇:ActivePage实例代码