100分啦！！！如何使网际快车那样的浮动窗口总在顶端？

Question

没人知道吗？我只想让那个窗口总在顶端呀，fsStayOnTop选项只对主窗口起作用，show出的子窗口就不行了。

Answer 1

SetWindowsLong
SHOWWINDOW
这几个API结合就可以实现了..你看MSDN上有很详细的说明的..

Answer 2

SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top, Form1.Width, Form1.Height,0);
像这样..
只要是HWND_TOPMOST这个属性就可以了..其它的都不重要..

Answer 3

还是只对主窗口有用，form1是主窗口，按钮显示出form2来，隐藏form1，那个form2就不能总在顶端了：（

Answer 4

为你的子窗体添加如下过程procedure CreateParams(var Params: TCreateParams);override;
procedure Thintfrm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent:=GetDesktopWindow;
  Params.EXStyle:=Params.ExStyle or WS_EX_TOOLWINDOW;
end;然后设置formstyle为ontop

Answer 5

使用SUIpack控件包里的SUIpackForm组件