如何使用组合键???(50分)

Y

yeo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-24

• #1

在Delphi中如何使用组合键？
以下为我的程序段，我设置的为按ESC键退出程序；那么假如我想设置为Shift+ESC或者Ctrl+Alt+ESC呢？？该如何修改？
望能提供具体的解决程序段
procedure TTIMain.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
case Key of
27 : Application.Terminate;
……………………
end;
end

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-24

• #2

Procedure TTIMain.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
case Key of
27 : if Shift=[ssAlt,ssCtrl] then
Application.Terminate;
……………………
end;
end

 

Y

yeo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-24

• #3

你的程序仅能最小化程序，而不能关闭程序，为什么？？

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-24

• #4

兄弟,我只是告诉你如识别祝贺键,你的代码我是造写上去的,
那么你用close得了!
case Key of
27 : if Shift=[ssAlt,ssCtrl] then
Close;
……………………
end;

 

Y

yeo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-24

• #5

接受答案了.