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