怎么关闭窗口(50分)

K

kino25

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #1

我用这种方法创建窗口
FormMoperator:=TFormMoperator.Create(Application);
但用close,free关闭窗口都不行,不知何故?

 

N

nibul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #2

在Application里创建的窗体不可能被FREE掉，如果用CLOSE整个程序就关闭了

 

P

panjf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #3

FormMoperator:=TFormMoperator.Create(Application);
FormMoperator.showModal;
FormMoperator.free;
FormMoperator := nil;
如果是show，在FormMoperator中写free即可

 

K

kino25

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #4

第一次行
第二次就不行了 出现错误：Access violation at address....
是不是ADO连接出错

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #5

FormMoperator是全局变量？
你一次开几个窗口，然后用close其中一个？
指针指向的地址有问题，如果要开多个窗口，可以将FormMoperator保存到一个TList中。

 

K

kino25

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #6

我用CLOSE来关闭当前窗口时出错。

 

C

ch_100755

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #7

在窗体的CLOSE事件里加
ACTION：＝CAFREE试试

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #8

能帖点代码看看吗？创建与关闭部份。

 

K

kino25

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #9

主窗体
procedure TMainForm.A15Execute(Sender: TObject);
begin
FormMoperator:=TFormMoperator.Create(Application);
end;
子窗体
procedure TFormSetFirst.BitcloseClick(Sender: TObject);
begin
free;
//close;
end;

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #10

不能用free，应该用close。
你代码中没有show或showmodal方法，窗口能显示？

 

S

sunrainwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #11

close 事件加
action:=cafree;
destroy事件加
FormMoperator;=nil;
其他窗口调用关闭：
freeandnil(FormMoperator);

 

F

free_knight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #12

在窗体的CLOSE事件里加
action:=cafree;

 

K

kino25

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #13

谢谢
我在destroy事件中加了代码
我放在ONCLOSE中就没问题了
散分