简单问题,我需要,从一个窗口打开另外一个窗口,然后,原来的窗口关闭.但是...(50分)

S

sunwork

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-20

• #1

我的程序需要这样,从菜单选择以后,打开第一个窗口,
在第一个窗口选择了一些参数以后,就打开第二个窗口,第一个窗口关闭.
我使用的是showmodal,但是就原来的窗口无法关闭,使用SHOW呢,就原来的窗口可以关闭.
但是我希望可以第二的窗口也可以独占,就是菜单所在的form在第二个窗口关闭以前,
无法激活,有什么方法吗?

 

P

players

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-20

• #2

用showmodal
FORM1。HIDE

 

K

kkyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-20

• #3

Application.CreateForm(TForm1, Form1);
With Form1 do begin
ShowModal;
if ModalResult = mrOK then begin
Application.CreateForm(TForm2, Form2);
With Form2 do begin
ShowModal;
if ModalResult = mrOK then begin
Showmessage('OK');
end;
Free;
end;
end;
Free;
end;

 

S

sunwork

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-20

• #4

showmodal就跳到FORM2去了..下面的程序就没有操作了.另外,hide不彻底.

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-20

• #5

在菜单的Click事件中
Form1.ShowModal;
Form2.ShowModal;

不要在Form1中去ShowModal Form2,等Form1 ShowModal结束后再 ShowModal Form2

 

1

197789

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-20

• #6

form1,form2,form3三个依次出现
最简单的就是form1中加一个隐藏按扭button1,添加命令form3.showmodal;
form2中的按扭命令为
form2.close;
form1.button1.click;
这方法最简单
好象不太好使?还是自己想办法.

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-16

• #7

Form1.Hide;
Form2.ShowModal;
Form1.Show;

 

C

chenqh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-17

• #8

procedure FormShowDemo;
var
boolShow: boolean;
begin
form1 := TFrom1.Create(nil);
form1.ShowModal;
boolShow := from1.ModalResult;
form1.Free;

if boolShow then
form2 := Tfrom1.Create(nil);
form2.ShowModal;
form2.Free;
end;