怎样在窗体中设置f1-f12的快捷键
怎样在窗体中设置f1-f12的快捷键
procedure Tformkeydown (sender:Tobject);
begin
if key=112 then bbzhangwuclick(self);
if key=113 then bibitn1click(self);
......
end;
小弟在执行时无反应也不报错，我该怎么办？
问题点数：20、回复次数：1Top
1 楼zswang（伴水清清)(专家门诊清洁工）回复于 2001-11-14 15:45:31 得分 20
//Form1.KeyPreview := True;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_F1: {};
VK_F2: {};
VK_F3: {};
//...
end;
end;
Top
