如何拦截Form中的系统关闭按钮事件 ( 积分: 100 )

C

catfox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #1

关闭按钮可见， 但我想当用户点击关闭按钮时，拦截关闭事件， 自己做处理<br><br>（这个问题应该有答过的， 可惜全文检索用不了）

 

C

catfox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #2

关闭按钮可见， 但我想当用户点击关闭按钮时，拦截关闭事件， 自己做处理<br><br>（这个问题应该有答过的， 可惜全文检索用不了）

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #3

在OnClose事件中可以处理

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #4

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);<br>begin<br> &nbsp;If application.MessageBox ('是否要退出本系统？',pChar('提示信息'),mb_yesno+mb_iconquestion)=idyes then<br> &nbsp; &nbsp;canclose:=true<br> &nbsp;Else<br> &nbsp;Begin<br> &nbsp; &nbsp;canclose:=false;<br> &nbsp; &nbsp;//...<br> &nbsp;end;<br><br>end;

 

C

catfox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #5

鉴于某些原因， 我要拦截系统关闭的事件。。。<br><br>不能只在OnClose或OnCloseQuery中处理就可以解决问题

 

D

delfier

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #6

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br>begin<br> &nbsp;if Application.MessageBox('确实要关闭系统吗?','系统询问',MB_YESNO+MB_ICONQUESTION)=idyes then<br> &nbsp; &nbsp;action:=caFree<br> &nbsp;else<br> &nbsp; &nbsp;action:=caNone;<br>end;

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #7

捕捉系统关闭的消息

 

C

catfox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #8

to xianguo<br> &nbsp; 我就是问怎么用代码实现。。。。

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #9

procedure myMessage(var Msg: TWMSysCommand); message WM_SYSCOMMAND;<br><br>procedure TForm1.myMessage(var Msg: TWMSysCommand);<br>begin<br> &nbsp;if Msg.CmdType = SC_CLOSE then<br> &nbsp; begin<br> &nbsp; &nbsp; ...<br> &nbsp; end;<br> &nbsp;inherited;<br>end;

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #10

procedure WMClose(var msg:TMessage); message WM_CLOSE;<br><br>procedure TForm1.WMClose(var msg: TMessage);<br>begin<br> &nbsp;...<br>end;

 

H

happycyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #11

把这些事件定义到Actionlist中就行了,然后把关闭按钮的Action属性设为Actionlist中的Action就行了,只要是关闭就调用这个Action就行了.

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #12

估计OnMessage里面也可以处理把？

 

G

gongyuzhuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #13

你可以重载<br> procedure WndProc(var Message: TMessage); override;<br>这个函数，都关机的消息处理

 

C

catfox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-18

• #14

多人接受答案了。