怎样让一个窗体总在另一个窗体的前面，急

Question

谢谢你的帮助

Answer 1

分是少了点，这个问题深度不同简单一点的话说
设置From的FromStyle属性 := fsStayOnTop就OK了
但那只是主窗口可以，如果有了其它窗体就不行了
……不知道你是不是问的高级一点的，如果是再加点分 :)...

Answer 2

Form1:=TForm1.create(self);
.
.
.
Form1.showmessage;

Answer 3

不好意思，是form1.showModel,不是Form1.showmessage

Answer 4

setwindowpos(form1.Handle,HWND_TOPmost,100,100,300,300,SWP_SHOWWINDOW );

Answer 5

Public
  procedure Createparams(Var Params:TCreateParams);override;
...procedure TForm1.Createparams(var Params:TCreateParams);
begin
  Inherited CreateParams(Params);
  With Params do
  begin
   EXStyle:=ExStyle or WS_EX_TOPMOST;
   wndParent:=GetDesktopWindow;  //关键一行.
  end;
end;

Answer 6

如上面的，Createparams是窗体初始化函数，上面的函数可行。