下面是同样的四段程序, 但分别使用了不同的三种消息结构: TWMMouseMove、TWMMouse、TMessage
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) protected procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.WMMouseMove(var Message: TWMMouseMove); var x,y: Integer; begin x := Message.XPos; y := Message.YPos; Text := Format('%d, %d', [x,y]); end; end.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) protected procedure WMMouseMove(var Message: TWMMouse); message WM_MOUSEMOVE; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.WMMouseMove(var Message: TWMMouse); var x,y: Integer; begin x := Message.XPos; y := Message.YPos; Text := Format('%d, %d', [x,y]); end; end.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) protected procedure WMMouseMove(var Message: TMessage); message WM_MOUSEMOVE; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.WMMouseMove(var Message: TMessage); var x,y: Integer; begin x := Message.LParamLo; y := Message.LParamHi; Text := Format('%d, %d', [x,y]); end; end.
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步