如何获取Alt+F4;当你按Alt+F4时不是关闭窗口;而是弹出对话话(28分)

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #1

高手出马吧

 

独

独孤求败

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #2

在Form的OnLlose or OnCloseQuery 事件里写代码。。。

如：
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageBox(handle,'关闭？','提示',MB_YESNO) = ID_NO then
CanClose := False;
end;

//ME不是高手

 

L

ledo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #3

public
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
//处理WM_SYSCOMMAND消息.
end;

implementation

procedure TsinkDesktop.WMSysCommand;
begin
if (Msg.CmdType=SC_CLOSE) then begin//如果是Alt+F4或者按了X关闭.
showmessage('你要干啥');
end
else DefaultHandler(Msg);
end;

 

U

unicornsc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #4

不用KeyDown事件,ALT+F4 将触发close 系统事件.

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #5

[red]窗体keyPreview设置程True;[/red]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = vk_F4) and (ssAlt in Shift) then
begin
Key := 0;
ShowMessage('ok');
end;
end;

又见laohe，Good Luck!
[]

 

L

LGXing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #6

同意 独孤求败 兄 FormCloseQuery事件
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//当真正需要关闭时作相应处理,否则弹出你的对话框
If 不需关闭 Then CanClose := False;
end;

 

A

akaiwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #7

用close事件和closequery时间都可以吧!

 

孔

孔明.net

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #8

学习

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #9

就到这里吧，谢谢诸位