怎么让一个窗口显示在最上层?

Question

怎么让一个窗口显示在最上层?

Answer 1

如果是应用程序的窗口：
Public
  procedure Createparams(Var Params:TCreateParams);override;
...procedure TFormDrop.Createparams(var Params:TCreateParams);
begin
  Inherited CreateParams(Params);
  With Params do
  begin
   EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAME;
   wndParnnt:=GetDesktopWindow;
  end;
end;
如果是对话框，呵呵
form.showmodal;祝：身体健康，分数和答案同样重要：）

Answer 2

showmodal;
或者在现在在最前端时还想操作别的窗口就用 ：form1.BringToFront；

Answer 3

Formstyle：＝fsStayOnTop不行吗？

Answer 4

FormSyyle:=fsStayOnTop
SetWindowPos

Answer 5

同意 ghyghost(我要求delphi能理解我的心情)