Form1 showmodal 出Form2，知道Form2的句柄如何反过来知道Form1的句柄(3分)

6

600019629

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #1

Form1 showmodal 出Form2，知道Form2的句柄如何反过来知道Form1的句柄，请API高手<br>做答，实在没分的，下次有了给吧

 

D

delphifans_hx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #2

将Form1的Handle作为参数传过去就行了<br>function ShowForm(PreWndHandle): TModalResult;<br>var<br>&nbsp; Form2: TForm2;<br>begin<br>&nbsp; Form2 := TForm2.Create(Application);<br>&nbsp; Form2.FPreWndHandle := PreWndHandle; &nbsp;<br>&nbsp; try<br>&nbsp; &nbsp; From2.ShowModal; <br>&nbsp; finally<br>&nbsp; &nbsp; Form2.Release;<br>&nbsp; end;<br>end;

 

6

600019629

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-27

• #3

问题是这个程序不是我写的

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-28

• #4

var h:thandle;<br>h:=findwindow(nil,'form1的caption');

 

6

600019629

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-28

• #5

请看清楚问题，是根据FORM2的句柄获得FORM1的句柄，

 

S

suva

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-28

• #6

Form1传给Form2,

 

6

600019629

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-29

• #7

接受答案了.