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