模式窗与非模式窗口的难题(100分)

F

fly_phoenix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-27

• #1

procedure OnClick;<br>begin<br> &nbsp;form1.showmodal;//打开一个模窗口<br> &nbsp;//或 Messagebox(handle,'一个对话框',...)<br>end;<br>procedure Ontime(Sender : Tobject);//一个定时器<br>begin<br> &nbsp;form2.show; &nbsp; //这时form2 挡住了form1，<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;//点击form2，没响应因为form1是模式窗口，<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;//可以用 Alt+Tab键切换一下使form1显示出来<br>end;<br><br>问题：<br>有没有办法在form2.show时，不让form2挡住form1.或其它解决方法

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-27

• #2

FORM1改为SHOW

 

E

eloveme

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-27

• #3

在form2 show 时进行判断，,如果form1先show,关闭form1 form2 show,再form1 show<br>form2先 show,不用管。

 

浪

浪人情哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-27

• #4

form1.formstyle:=fsStayOntop;<br>form1.show;

 

F

fly_phoenix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-27

• #5

如果有很多个类似于form1的窗口或者是messagebox就没办法判断了，form2是实时弹出窗口<br>有没办法让 form2在有其它模式窗口有存在的情况下响应

 

F

fly_phoenix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-27

• #6

我在<br>Application.OnModalBegin<br>Application.OnModalEnd<br>中可以检测到模式窗口的存在，怎么样让模式窗口在最前面不让Show挡住还是没着，但对于messagebox就没办法了

 

F

fly_phoenix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-28

• #7

[red]有高手在吗[/red]

 

D

dodolon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-02

• #8

只有让Form2在另一个线程中运行才不会受模式窗口的影响。或为From2另外写一个EXE，定时器中用WinExec()调用调用该EXE。

 

W

wynney

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-07

• #9

form1.formstyle:=fsStayOntop;<br>form1.show; &nbsp;<br><br>这个应该可以用的

 

F

fly_phoenix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-29

• #10

form1.formstyle:=fsStayOntop;<br>也是不起作用的<br>form2.show还是能跑到你前面来

 

M

moolleychean

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-30

• #11

在form2 show后轮询所有窗口，检查到是form1就BringToFront可否。<br>for Loop := 0 to Application.ComponentCount - 1 do &nbsp; &nbsp; <br>begin<br> &nbsp; &nbsp;if (Application.Components[Loop] is TForm) then<br> &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp;if (Application.Components[Loop] as TForm).Name = 'Form1' then<br> &nbsp; &nbsp; &nbsp; &nbsp;begin <br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(Application.Components[Loop] as TForm).BringToFront;<br> &nbsp; &nbsp; &nbsp; &nbsp;end;<br> &nbsp; &nbsp;end;<br>end;