摘要：
通过 Application.OnMessage 响应消息:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); {这个自定义过程要复合 Application.OnMessage 的参数格式} procedure MyMessage(var Msg... 阅读全文
摘要：
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... 阅读全文