怎样关闭窗口(50分)

Z

zzyxm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #1

大家好，我是Delphi新手，我现在的问题是这样的：我想在Form1中点击Button后，创建一个窗体Form2，同时要关闭Form1,我知道怎么办了。我用的函数是
Form2.ShowModal;
Form1.close;
这样的话在关闭Form2时候才会关闭Form1.

大虾们请告诉我啊！

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #2

这个问题基本上很难解决。
你只有试试把两句话调个个吧。

 

L

LoveHB

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #3

form1.close;
form2.showmodal;

 

D

dez_0609

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #4

Application.CreateForm(TForm2,Form2);
Form2.Show;
Form1.Close;

 

梦

梦之火

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #5

你建FORM1的时候FORM1自动变成一个工程，FORM2就成为了工程里面的一个窗体，这时你关闭了FORM1也就关闭了工程，FORM2页就不能显示出来了

 

I

iamy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #6

form1不能为主窗体

代码(一共用了3个窗体)
用FORM2打开FORM3
然后关掉FORM2


procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;


procedure TForm2.Button1Click(Sender: TObject);
begin
form3.ShowModal
end;

procedure TForm3.FormShow(Sender: TObject);
begin
form2.close;
end;

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #7

好象越来越有趣了，[]

 

0

011101

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-30

• #8

[h4][red]樓主,答案就在這:
这个问题基本上很难解决。
你只有试试把两句话调个个吧。[/red][/h4]

 

Z

zzyxm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #9

各位，谢谢你们的回答，但是把两句话调个是不行的，因为这样的话就直接关闭了Form1,就不会执行下面的创建Form2的语句了，看样子是不能解决了啊！。

 

H

hejunwu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #10

同意 iamy 的看法，如果form1是主窗体，那么，把form1关闭就等同于关闭了这个程序！