[代码]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