Question

delphi 如何输出鼠标指针的当前坐标，分别在edit1和edit2上显示

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; //输出鼠标指针的当前坐标

分别显示还没弄明白呢！ 等待大大们的赐教

Answer 1

您可以这样写：（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;

implementation

{$R *.dfm}

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;

end.
------------------------------------------------
窗体上定义2个Edit组件，分别叫edit1和edit2,有定义一个statusbar组件叫statusbar1,对statusbar1进行编辑，起码有一个元素panels[0]，其width=150，这些是基本条件，你早就知道了。
按照以上做法就可以在 edit1上显示x值，edit2上显示y值，在状态条上显示x和y值
-----------------------------------------------