怎样关闭MDI Child窗口才不出错???(50分)

S

suguangyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-22

• #1

在MDI Child窗口中,用close语句关闭时,会报错
只能通过onclose事件关闭(action:=caFree),
还有没有其它方式可以关闭它??

 

笑

笑幺

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-22

• #2

子窗体关闭
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

 

牛

牛牛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-22

• #3

在close事件中,加入
Action:=caFree;

 

B

boye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-22

• #4

修改VCL

 

S

suguangyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-22

• #5

如果我想通过点击一个按钮来关闭它呢?

 

B

boye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-22

• #6

OnClose(self);

 

S

suguangyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-22

• #7

但是那个窗口是MDIChild,用OnClose(self)的话还少了一个参数,
应该还有一个参数,那个参数是什么呢???

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-22

• #8

在MDI子窗体中放一个Button，然后在他的OnClick事件中写入. Form.Close;
然后在该子窗体的OnClose事件中写入
Action:=caFree;
Form:=nil;

 

S

suguangyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-22

• #9

飘摇客, 试过但还是报同样的错误

 

Z

zj_94yy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #10

rocedure TMDIChild.CloseButtonClick(Sender: TObject);
begin
Close;
end;

procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #11

我昨天就用飘摇客兄说的，没有问题呀！请问报怎样的错误！

 

A

AYing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #12

同意zj_94yy.

 

S

suguangyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #13

zj_94yy兄 这个恐怕有点问题 我试过是不行

 

H

HeBaisong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #14

rocedure TMDIChild.CloseButtonClick(Sender: TObject);
begin
Close;
end;

procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
肯定可以，否则就是其他的问题！

 

B

brown0432

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #15

form2.close;
begin
Action:=caFree;
form2:=nil;
end;

 

Z

zj_94yy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #16

应该不是子窗体关闭引发的错误

 

S

suguangyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #17

我是用了第三方的控件，但我在Fsnormal类型（也用了同样的第三方的控件）的窗口中没有
出现错误。我想不应该是第三方的控件所引起的错误

 

S

suguangyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-13

• #18

结帐!