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