828
社区成员
发帖
与我相关
我的任务
分享我想在我做的程序中用一些快捷键，比如F3，（我要用的是F系列）弹出一个窗体
procedure TForm1.formkeypress(Sender: TObject; var Key: Char);
begin
if key = #114 then
form2.show;
end;
begin
if key = #114 then
form2.show;
end;
...全文
请发表友善的回复…
发表回复
m54772091 2005-10-21
- 打赏
- 举报
一些菜单支持功能键，这样最高，如果不行就用楼上的设FORM的Keypriview属性为True，再写代码
小疙瘩 2005-10-21
- 打赏
- 举报
ok了
谢谢
谢谢
hanker1314520 2005-10-21
- 打赏
- 举报
首先设FORM的Keypriview属性为True
然后再加上这段代码
procedure TForm1.formkeydown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_F1 then
form2.show;
end;
这样就可以了
然后再加上这段代码
procedure TForm1.formkeydown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_F1 then
form2.show;
end;
这样就可以了
angle097113 2005-10-21
- 打赏
- 举报
Application.HelpCommand(HELP_PARTIALKEY, 0);
