求助！大家快点来帮帮我啊！！(100分)

Kingron · 2001-09-22

如果还不能解决，也不要问了，我要走了。[:8D]

nicet · 2001-09-22

try     Hide;     Application.NormalizeAllTopMosts;     LitterWin.ShowModal;     Application.RestoreTopMosts; finally     show; end; 这个是放在哪里？form2的shown里面么？

eagle_han · 2001-09-22

当然是form1的button1.onclick中了

nicet · 2001-09-22

eagle_han,谢谢

nicet · 2001-09-22

eagle_han,     LitterWin.ShowModal;中的LitterWin应该换成什么呢？

陈晨 · 2001-09-22

htw · 2001-09-22

SetWindowPos肯定可以的,  注意下面的handle是属于那一个窗体的 SetWindowPos(Form2.handle, hwnd_topmost, 0, 0, 0, 0, swp_nomove or swp_nosize) procedure TForm1.mnuProgramInTopClick(Sender: TObject); begin   if mnuProgramInTop.Checked =true then  //mnuProgramInTop指菜单名     SetWindowPos(self.Handle , HWND_NOTOPMOST, 0,0,0,0, SWP_NOMOVE + SWP_NOSIZE) //设置为普通窗口   else     SetWindowPos(self.Handle, HWND_TOPMOST, 0,0, 0,0, SWP_NOMOVE + SWP_NOSIZE);  //放在最前面 end; 看以前的贴子： http://www.delphibbs.com/delphibbs/dispq.asp?lid=638858 http://www.delphibbs.com/delphibbs/dispq.asp?lid=382348 http://www.delphibbs.com/delphibbs/dispq.asp?lid=382348 http://www.delphibbs.com/delphibbs/dispq.asp?lid=255545 http://www.delphibbs.com/delphibbs/dispq.asp?lid=452684

nicet · 2001-09-22

htw,我都照你说的做了，可是真的还不行，运行后，再打开其他窗口（比如说“我的文档”， “资源管理器”等等），form2就没有了亚！我很急啊。

Pan Ying · 2001-09-22

重载以下过程： ...   private     { Private declarations }     procedure CreateParams(VAR Params: TCreateParams); override;   ... procedure TForm2.CreateParams(var Params:TCreateParams ); begin   inherited CreateParams(Params);     with Params do  begin     ExStyle :=ExStyle or WS_EX_TOPMOST;     end;   Parent := 0;//important,表示Form2的父窗口不是Form1，就可以最前了 end;

nicet · 2001-09-22

Pan Ying，我照你说的做了，写在了Form2中可是编译后，自动显示错误， 错在 Parent := 0;上 是否还要定义Parent ：integer;?

Pan Ying · 2001-09-22

把0改成nil试试看

nicet · 2001-09-22

Pan Ying, 编译通过了，可是好像还是无法实现Form2的“总在最上面”啊！！ 这个问题我都在这里问了一天了。好累啊~[

]

Pan Ying · 2001-09-22

对不起， 我试了一下，好像没有成功，等我再试试别的方法。

nicet · 2001-09-22

嗯。[

]

Pan Ying · 2001-09-23

将Parent := 0; 改成 Params.WndParent := 0; 就可以了， 我试过了。

nicet · 2001-09-23

Pan Ying,谢谢,这样是可以的。 Kingron，你说你的笔记中 必须修改代码如下： try     Hide;     Application.NormalizeAllTopMosts;     LitterWin.ShowModal;     Application.RestoreTopMosts; finally     show; end; 这些正确的到底应该加在哪里，还有LitterWin应该换成是什么呢？ Kingron，如果你看到，请回个话好么！

Kingron · 2001-09-23

哎呀，我昨天回去了，这个LitterWin就是你的Form2啊！！！~~~~~[

] 至于代码放在那个地方，就是你需要Form2.show的地方啊，例如你使用按钮触发这个OnTop 窗口，那么就放在Button的Click中，放在你原来的Form2.Show的地方就可以了，把原来的Form2.Show删除即可。

Kingron · 2001-09-23

我可以告诉你，绝对没有问题的，我测试过啦！！！！ 不过看在你是MM的面上，我就不忍心说你了~~~~~~~~~~~[^]

htw · 2001-09-23

哦，是个MM啊！ [

] 还要把show 改为showmodal   Fomr2.ShowModal;

nicet · 2001-09-23

Kingron,的方法我试过了,也是可以的. [

]谢谢各位大哥拉! 特别感谢以下两位

an Ying,Kingron!!谢谢你们一天来这么支持我,可惜我没有分数了[^]

求助！大家快点来帮帮我啊！！(100分)

Kingron

Unregistered / Unconfirmed

nicet

Unregistered / Unconfirmed

eagle_han

Unregistered / Unconfirmed

nicet

Unregistered / Unconfirmed

nicet

Unregistered / Unconfirmed

陈晨

Unregistered / Unconfirmed

htw

Unregistered / Unconfirmed

nicet

Unregistered / Unconfirmed

Pan Ying

Unregistered / Unconfirmed

nicet

Unregistered / Unconfirmed

Pan Ying

Unregistered / Unconfirmed

nicet

Unregistered / Unconfirmed

Pan Ying

Unregistered / Unconfirmed

nicet

Unregistered / Unconfirmed

Pan Ying

Unregistered / Unconfirmed

nicet

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

htw

Unregistered / Unconfirmed

nicet

Unregistered / Unconfirmed

Similar threads