procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_RETURN then
showmessage('');end;
Shift: TShiftState);
begin
if key = VK_RETURN then
showmessage('');end;
调试欢乐多
VK_F1
...
VK_F12 表示