Delphi

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