如何实现按F5键执行我的应用程序,按F6键关闭

Question

如何实现按F5键执行我的应用程序,按F6键关闭

Answer 1

在程序里加一个edit 控件，在edit 菜单中的tab order..选项将edit置于最上
以便使程序运行edit就获得焦点，在edit 的OnKeyUp事件中写：
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=116 then
begin
要执行的部分；
end;
if key=117 then
begin
close;
end;
end;为了防止edit失去焦点，在常点击的地方的Onclick 事件中加 edit1.setfouce;