请教各路高手，多form的单form问题：） (20分)

F

faguobali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #1

建project1,form1,form2.让工程执行时，form2可见，可操作。但form1不可见（声明一下，
form1不是被form2挡住，而是确实没有显示，拖动form2时，form1看不到）。并且当form2
关闭时，form1出现。
请问各路高手，如何实现？
另外返回值怎样使用？
：））

 

雪

雪中漫步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #2

form2 visible为true
form1 visible为false
form2的onclose 事件中： form1.show
form1,form2 都在auto_create forms 中

或form2 在 auto_create 中，form1不在
在form2 的 onclose 事件中：
application.createform(tform1,form1);
form1.show

 

S

sunboy_del

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #3

那一个是主窗体，form1 or form2如form1 是主窗体，用返回值嘛，form.modalresult

 

F

faguobali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #4

to sunboy_del:
我是指form1为主窗体。

 

F

faguobali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #5

to 雪中漫步:
照你提供的方法做后，‘工程执行时，form2可见’实现了。
　　　　但有错误，并且关闭form2后，只能用Project Reset结束程序运行。
　　　　当然，form1是看不到了。
　　　　这该如何是好呢，请教请教。
：））

 

M

misxjq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-15

• #6

你把Form1设为启动窗体；
然后在program Project1中填写
Form2:=TForm2.Create(Application);
Form2.ShowModal;
Form2.Update;
if Form2.ModalResult=1 then
begin
Application.CreateForm(TForm1, Form1);
end;
Form2.free;
注意在Form2关闭时Modalresult:=1

 

F

faguobali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-16

• #7

THANKS!!!

 

F

faguobali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-16

• #8

多人接受答案了。