发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 2.18 在窗体上设置一个热键
发信站: 哈工大紫丁香 (2000年09月01日13:39:59 星期五), 站内信件

在窗体上设置一个热键 

在窗体的FORM ONKEYDOWN事件中加入:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then
       ShowMessage('Ctrl-A');
end;

 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]