普通窗体的关闭问题(50分)

R

restart0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #1

2个普通的窗体A，B，A中有按钮，点按钮后创建B，然后A关闭掉，我不知道怎么关闭A？
我是做成Dll。

 

T

tianjh007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #2

在B的Create事件中写A.free看看

 

K

kisse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #3

在onclose事件中：
delete formB;
action = cafree;

 

唐

唐佐平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #4

把你的程序代码发给我我帮你看一下，
tang_717@163.com

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #5

A不能是主窗口，否则全部会关闭。

 

老

老人家

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #6

UP

 

B

bingsong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #7

如果A窗体是主窗体，则不可关闭，但是可以最小化。代码如下。
procedure TForm1.Button1Click(Sender: TObject);
begin
form2:=Tform2.Create(nil);
form1.WindowState:=wsminimized;
form2.ShowModal;
form2.Free;
end;
//////////////////////////////////////////////
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.WindowState:=wsnormal;
form2.Close;
end;
/////////////////////////////////////////////

 

R

restart0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-06

• #8

多人接受答案了。