UC知道delphi 如何输出鼠标指针的当前坐标，分别在edit1和edit2上显示
来源：百度知道 编辑：UC知道 时间：2024/06/08 14:59:50
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
strpos:string; //定义整形变量
begin
strpos:=format('%3d,%3d',[x,y]); //获取鼠标指针的当前坐标
statusbar1.panels[1].text:=strpos; //输出鼠标指针的当前坐标
========================================================
在statusbar1上显示是连在一起
要是在edit控键上显示 鼠标指针的当前坐标怎么写？
分别显示 edit1 为 X edit2 为 Y 呢？
在edit控键上显示 弄明白了 是这么写
strpos:=format('%3d,%3d',[x,y]); //获取鼠标指针的当前坐标
Edit1.text:=strpos; //输出鼠标指针的当前坐标
分别显示还没弄明白呢！ 等待大大们的赐教
Y: Integer);
var
strpos:string; //定义整形变量
begin
strpos:=format('%3d,%3d',[x,y]); //获取鼠标指针的当前坐标
statusbar1.panels[1].text:=strpos; //输出鼠标指针的当前坐标
========================================================
在statusbar1上显示是连在一起
要是在edit控键上显示 鼠标指针的当前坐标怎么写？
分别显示 edit1 为 X edit2 为 Y 呢？
在edit控键上显示 弄明白了 是这么写
strpos:=format('%3d,%3d',[x,y]); //获取鼠标指针的当前坐标
Edit1.text:=strpos; //输出鼠标指针的当前坐标
分别显示还没弄明白呢！ 等待大大们的赐教
您可以这样写：（D7下已经通过了）
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
strpos:string; //定义整形变量
begin
strpos:=format('X=%3d, Y=%3d',[x,y]); //获取鼠标指针的当前坐标
statusbar1.panels[0].text:=strpos; //输出鼠标指针的当前坐标
Edit1.Text := intToStr(x);
Edit2.Text := intToStr(y);
end;
窗体unit1全部源码为：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
StatusBar1: TStatusBar;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementat