[代码]Delphi实现窗体始终前台显示且获得焦点

之前想利用窗体的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.

程序运行后，窗体始终置顶显示，文本框始终获得焦点，键盘输入内容全在文本框内显示。

Technorati 标签: Delphi,SetForegroundWindow,Activate,Deactivate