在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
之前想利用窗体的OnActivate和OnDeactive事件对窗体进行强行置顶并设置焦点,接着就发现窗体的 Form.Active 属性并不靠谱,无法准确的得到窗体是否得到焦点。 既然这样,索性利用Timer定时,每隔一段时间就对窗体去激活+置顶+激活+设置焦点,实践证明效果良好。 新建窗体,放置一个文本框 edt1,再放置一个Timer控件 tmr1,代码如下: unit frmTestTopWindow; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) edt1: TEdit; tmr1: TTimer; procedure tmr1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin FormStyle := fsStayOnTop; // 窗口置顶 tmr1.Interval := 1000; // 每隔200ms处理一次 tmr1.Enabled := True; // 启动Timer end; procedure TForm1.tmr1Timer(Sender: TObject); begin Self.Deactivate; // 去激活窗体 SetForegroundWindow(Handle); // 将窗体置顶 Self.Activate; // 激活窗体 edt1.SetFocus; // Edit获得焦点 end; end. 程序运行后,窗体始终置顶显示,文本框始终获得焦点,键盘输入内容全在文本框内显示。 Deactivate
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论