Question

delphi 窗口置顶的问题

有TForm1和TForm2 两个窗口。
TForm2设置了置顶，但是点击 TForm2的时候 TForm1也弹出来了，这个怎么解决

Answer 1

在TForm1里有一个显示选项你设置下就好了

Answer 2

你试下TForm2显示的时候用ShowModal
希望对你有帮助！

追问

ShowModal 用哪个呢？ 我用了mrok 但是 Form1却不显示了，然后我加上 tform1.show 这样tform1显示出来了，但是 tform1 的按钮 那些 全部失灵了。

追答

你要的功能是不是在要在TForm1的一个按钮按下后弹出Form2呢？
还是什么？

追问

我想把tform2 做成类型迅雷那样的悬浮窗口

追答

了解；
首先你在Form2的Public中增加方法procedure CreateParams(var Params: TCreateParams); override;
具体代码为：
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_TOOLWINDOW;
Params.WndParent := GetDesktopWindow;
end;
第二、把Form2的FormStyle设置成fsStayOnTop；

第三、你在显示Form2的时候要换成以下方法（我是在Form1中的一个按钮显示Form2的，你根据你自己的情况写）：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Frm: TForm2;
begin
Frm := TForm2.CreateParented(GetDesktopWindow());
Frm.Show;
end;

以上在Win XP + Delphi 7 中测试没问题，希望对你有帮助！

Answer 3

Form1.Hide;
Form2.BringToFront;
这样试试

Answer 4

Form1.Hide;