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

Y

yeo

Unregistered / Unconfirmed
GUEST, unregistred user!
在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!
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!
你的程序仅能最小化程序,而不能关闭程序,为什么??
 
W

wql

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

yeo

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 

Similar threads

回复
0
查看
292
不得闲
D
回复
0
查看
700
DelphiTeacher的专栏
D
顶部