請問如何定義Alt+clt+A，和Alt+A為hotkey?

發文回覆瀏覽次數：1697

推到 Plurk!

推到 Facebook!

請問如何定義Alt+clt+A，和Alt+A為hotkey?

尚未結案

donlly
一般會員

發表：45
回覆：73
積分：23
註冊：2004-11-30

發送簡訊給我

#1 引用回覆回覆

發表時間：2005-01-04 20:50:10

IP:219.235.xxx.xxx 未訂閱

請教

deity
尊榮會員

發表：90
回覆：876
積分：678
註冊：2003-05-09

發送簡訊給我

#2 引用回覆回覆

發表時間：2005-01-04 21:36:43

IP:59.32.xxx.xxx 未訂閱

donlly您好：

  private
    { Private declarations }
    procedure OnMessage(var Msg: Tmsg; var Handled: Boolean);    procedure TForm1.FormCreate(Sender: TObject);
begin
   RegisterHotKey(handle,1,MOD_CONTROL MOD_Alt,integer('A'));
   RegisterHotKey(handle,2,MOD_Alt,integer('A'));
   application.onMessage:=onMessage;
end;    procedure TForm1.OnMessage(var Msg: Tmsg; var Handled: Boolean);
begin
  if Msg.message=WM_KEYDOWN then
  case msg.wParam of
    1: showmessage('Ctrl Alt A');
    2: showmessage('Alt A');
  end;
  inherited
end; 
试试看
可参考：
http://delphi.ktop.com.tw/topic.php?topic_id=35214
http://delphi.ktop.com.tw/topic.php?topic_id=46574
http://delphi.ktop.com.tw/topic.php?topic_id=30935
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=22405
站内也有相当多的资料可代查询，自己找找看

<>~~~静心养德~~~ 發表人 -

系統時間：2024-07-03 7:51:47

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！