S
scy_fjqz
Unregistered / Unconfirmed
GUEST, unregistred user!
//以下程序只有form 和button 两个控件,
button按钮(是结束键),
不管按哪个键(除了enter键和空格键,程序就结束),都
不能响应showmessage,而把button去掉,却可以响应showmessage!
我想保留button控件,又能响应showmessage,怎么做,请指教!
procedure Tfrm_about.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
showmessage(inttostr(key));
end;
////
button按钮(是结束键),
不管按哪个键(除了enter键和空格键,程序就结束),都
不能响应showmessage,而把button去掉,却可以响应showmessage!
我想保留button控件,又能响应showmessage,怎么做,请指教!
procedure Tfrm_about.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
showmessage(inttostr(key));
end;
////