怎样在关闭Form时进行确认，从而可以不关闭(50分)

N

nofault

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-17

• #1

点击标题栏的X能够关闭Form，这个时候怎么控制它不被关闭，回到点击前的状态？
也就是我加个MessageBox上去，提示是否关闭，如果用户选择NO，那么能回到之前的状态

 

W

woyaoying

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-17

• #2

在FormCloseQuery处编写事件
if Application.MessageBox('确实要退出吗？',
MsgInformation,MB_ICONQUESTION+MB_OKCancel+MB_Defbutton2)=idCancel then
Action := CaNone;

 

L

lichdr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-17

• #3

來晚了，就是FormCloseQuery這個事件。

 

江

江西的delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-17

• #4

procedure TF_Main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if ShowIYN('是否真的要退出【管理软件】 ?')=IDCANCEL then
begin
CanClose:=false;
end;
end;

 

江

江西的delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-17

• #5

补充：ShowIYN
if Application.MessageBox(Pchar('是否真的要退出【管理软件】 ?),'系统信息',MB_ICONINFORMATION+MB_OKCANCEL))=IDCANCEL

 

O

ottsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-17

• #6

是不是可以更簡單一點

CanClose:=MessageBox(Handle,'確定退出嗎','確認',36)=6;

 

N

nofault

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-17

• #7

哇，不好意思，太简单了。

 

N

nofault

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-17

• #8

[][][][]