盒子论坛 v2.1

用以下代码实现热键功能，但这样程序只能响应一个热键，要怎样修改才能让他能响应连个或多个热键呢
const
   WM_SNAPHOTKEY=WM_USER + 101;
private
    { Private declarations }
    procedure ONHotkey(var message:Tmessage);message WM_HOTKEY;

procedure TForm1.ONHotkey(var message:Tmessage);
begin
     if  (message.WParam=WM_SNAPHOTKEY) then
        begin
          showmessage('ok');
        end;

end;
procedure TForm1.FormShow(Sender: TObject);
begin
RegisterHotKey(Handle,WM_SNAPHOTKEY,MOD_CONTROL,VK_F8 );
end;
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/1/23 16:47:06

1楼：

const
  //--------------------系统热键消息------------------------------
   Hot_FromClip= WM_USER + 101;//来自剪贴板
   Hot_Screen=WM_USER + 102;  //全屏
   Hot_Control= WM_USER + 103;//截控件
   Hot_Rectangle=WM_USER + 104;// 矩形
   Hot_RoundRect=WM_USER + 105;//圆角矩形
   Hot_Round=WM_USER + 106;//圆形
   Hot_Triangle=WM_USER + 107;//三角形
   Hot_Polygon=WM_USER + 108;//多边形
   Hot_Timer=WM_USER + 109;//定时
   Hot_Remote=WM_USER + 110;//远程
   Hot_Active=WM_USER + 111;//活动窗口
   Hot_Scroll=WM_USER + 112;//滚动截图

//--------------------------------------------------------
procedure TMainForm.DealHotKey;
begin

   RegisterHotKey(Handle,Hot_Screen,0,VK_SNAPSHOT  );//print screen要单独注册不能更改

   MyRegisterKey(CutPasteFromClipStr,Hot_FromClip);
   MyRegisterKey(CutControlStr, Hot_Control);
   MyRegisterKey(CutRectangleStr,Hot_Rectangle);
   MyRegisterKey(CutRoundRectStr,Hot_RoundRect);
   MyRegisterKey(CutRoundStr , Hot_Round );
   MyRegisterKey(CutTriangleStr, Hot_Triangle);
   MyRegisterKey(CutPolygonStr,Hot_Polygon );
   MyRegisterKey(CutTimerStr, Hot_Timer );
   MyRegisterKey(CutRemoteStr,Hot_Remote);
   MyRegisterKey(CutActiveStr,Hot_Active);
   MyRegisterKey(CutScrollStr,Hot_Scroll );

end;

procedure TMainForm.MyUnRegisterKey;
begin
  UnregisterHotKey(Handle,Hot_Screen);
  UnregisterHotKey(Handle,Hot_FromClip);
  UnregisterHotKey(Handle,Hot_Control);
  UnregisterHotKey(Handle,Hot_Rectangle);
  UnregisterHotKey(Handle,Hot_RoundRect);
  UnregisterHotKey(Handle,Hot_Round );
  UnregisterHotKey(Handle,Hot_Triangle);
  UnregisterHotKey(Handle,Hot_Polygon );
  UnregisterHotKey(Handle, Hot_Timer );
  UnregisterHotKey(Handle, Hot_Remote);
  UnregisterHotKey(Handle, Hot_Active);
  UnregisterHotKey(Handle, Hot_Scroll );
end;

----------------------------------------------

信息

登陆以后才能回复