摘要:
1 BOOL RegisterHotKey( 2 HWND hWnd, {窗口句柄} 3 int id, {热键标识} 4 UINT fsModifiers, {热键模式,是否按下MOD_WIN,MOD_SHIFT,MOD_CONTROL,MOD_ALT} 5 UINT vk {热键虚拟键} 6 ); 7 8 {定义一个全局变量} 9 10 MY_ID: Integer; {全局因子}11 procedure WMHotKey(var Msg :TWMHotK... 阅读全文
摘要:
{1、显示鼠标在 Panel1 中的坐标}{2、显示是否同时按住了 Shift、Ctrl、Alt}procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var List: TStringList;begin List := TStringList.Create; if ssShift in Shift then List.Add('Shift'); if ssCtrl in Shift then List.Add('Ctrl'); if ssAlt 阅读全文
摘要:
发送消息的常用函数:function SendMessage( hWnd: HWND; {目标句柄} Msg: UINT; {要发送的消息(编号)} wParam: WPARAM; {消息参数} lParam: LPARAM {消息参数}): LRESULT; stdcall; {返回处理结果}function PostMessage( hWnd: HWND; {目标句柄} Msg: UINT; {要发送的消息(编号)} wParam: WPARAM; {消息参数} lParam: LPARAM {消息参数}): BOOL; stdcall; {是否发送成功}fun... 阅读全文