2024年4月29日发(作者：)

用delphi实现显示鼠标坐标在窗口中的位置

***********************************************************

用delphi实现显示鼠标坐标在窗口中的位置

***********************************************************

***********************************************************

procedure ick(Sender: TObject);

begin

if d=false then

begin

:=inttostr(Pos.X);

:=inttostr(Pos.Y);

d:=true;

end;

end;

***************************************************

delphi 获取鼠标当前位置的相对坐标unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs;

type

TForm1 = class(TForm)

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure FormMouseUp(Sender: TObject; Button: TMouseButton;