Delphi - 通过WinAPI GetCursorPos实现鼠标位置的实时显示

通过WinAPI GetCursorPos实现鼠标位置的实时显示

有时候我们需要将鼠标的位置实时抓取出来，可以通过如下方式实现。

添加一个Timer控件，执行间隔改为100ms，双击控件输入如下代码：

 var
   P: TPoint;
 begin
    GetCursorPos(P);
    RzLabel_Point.Caption := Format('(%d,%d)', [P.X,P.Y]);
 end;

在窗体Show事件中输入如下代码，调整下鼠标显示样式：

 Screen.Cursor := crHandPoint;

最终效果：

单元代码如下：

 unit U_Operation;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ExtCtrls, RzPanel, StdCtrls, RzLabel;

 type
   TFrm_Operation = class(TForm)
     RzGroupBox1: TRzGroupBox;
     RzGroupBox2: TRzGroupBox;
     Timer_Display: TTimer;
     RzLabel1: TRzLabel;
     RzLabel_Point: TRzLabel;
     procedure Timer_DisplayTimer(Sender: TObject);
     procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Frm_Operation: TFrm_Operation;

 implementation

 {$R *.dfm}

 procedure TFrm_Operation.Timer_DisplayTimer(Sender: TObject);
 var
   P: TPoint;
 begin
    GetCursorPos(P);
    RzLabel_Point.Caption := Format('(%d,%d)', [P.X,P.Y]);
 end;

 procedure TFrm_Operation.FormCreate(Sender: TObject);
 begin
    Screen.Cursor := crHandPoint;
 end;

 end.

作者：Jeremy.Wu
  出处：https://www.cnblogs.com/jeremywucnblog/

  本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。