请教

Hi,lovelypp,您好! 如果您想在自己的程式中判斷是否有Alt或Ctrl按下,請看看下面的code對您是否有所幫助:

......
  private
    procedure WMGetDlgCode(var msgIn: TWMGetDlgCode); message WM_GETDLGCODE;
......
procedure TForm1.WMGetDlgCode;
begin
  inherited;
  msgIn.Result := msgIn.Result or DLGC_WANTTAB;
end;    procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_CONTROL then
   ShowMessage('Ctrl鍵被按下');
end;

PS: Alt的Virtual key codes是vk_menu哦! 如果您是要監視全局的話,就請使用鍵盤鈎子函數(在站內使用hook,RegisterHotKey等關鍵字可以搜索到許多相關內容) < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？