如何使一个Form总是在所有程序的最顶端

Question

Form1.Show(不是ShowModal);
现在要保证此窗口始终在所有程序的最顶端，（注意不只是在本程序的顶层）。
用过了 API 函数 SetWindowpos，也不行，该怎么做呢？请指点

Answer 1

FORM本身就有一个属性。我记不太清了。我也曾做过这样的功能。

Answer 2

procedure CreateParams(var Params: TCreateParams); override;procedure TForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
 with Params do begin
    Style := WS_POPUP or WS_THICKFRAME or WS_BORDER;
    ExStyle := WS_EX_TOOLWINDOW or WS_EX_TOPMOST;
  end;
end;

Answer 3

jinzhili,szkingrose你们说的方法我试了都不行啊，窗口只是在本程序的最顶层我的窗口是一个对话框程序的弹出窗口