如何不让子窗体最小化(100分)

稻

稻草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #1

在子窗体关闭的时候，弹出对话框，让用户选择是否关闭，
当如果选择了‘否’的时候，子窗体却最小化了。想问一下
有什么办法在选择‘否’的时候，子窗体还是原来的界面，
而不是最小化----- 100 大洋！

 

G

Gmxyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #2

OnClose中：
Action:=caFree;

 

G

Gmxyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #3

选否：

Action:=caNone;

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #4

同意，你的窗体的子窗体吧

 

稻

稻草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-10

• #5

Gmxyb:你没看清我的题意呀！，我不是说关闭子窗体，
我是说当点击窗体的关闭按钮出现提示框，问是否关闭， 如选择
不关闭，那么子窗体还应该是原来的界面！
问题是：选择‘否’以后的窗体变成最小化了，

 

稻

稻草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-10

• #6

Gmxyb 有米！

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-10

• #7

那在关闭子窗体时怎么会出现对话框呢？
在你的onclosequery事件中，你写下了什么代码？
你那个action:=cafree写了没有？

 

稻

稻草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-10

• #8

dedema：

procedure TForm_slqr.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if messagedlg('结束本次操作吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
action:=cafree;
end
else
action:=caNone;
end;

就这样~这个问题讨论结束！
end;