Question

请问一下在Delphi平台下如何实现鼠标单击窗体某点时，能把相应的坐标显示到Edit1和Edit2里啊？不胜感激

各位大哥大姐，请问一下在Delphi平台下如何实现鼠标单击窗体某点时，能把相应的坐标显示到Edit1和Edit2里啊？
不胜感激
还有就是如何触发和停止鼠标点击取点这个事件啊
打个比方说我要取三个点，怎么样能够触发第一次取一次点，触发第二次取下一点，触发第三次取第三个点。这样的话以免和其它的操作混淆啊，要不真个界面上上鼠标随便点一下都在取点

zuizhu，你好，非常感谢，麻烦你再给我解释下如何触发和停止鼠标取点这个事件。

Answer 1

Self.Edit1.Text := IntToStr(Mouse.CursorPos.X);
Self.Edit2.Text := IntToStr(Mouse.CursorPos.Y);
{
其中Mouse是TMouse对象，TMouse类在classes里面声明，Mouse对象的构造也在Classes里面，所以可以直接使用
}

Answer 2

procedure TForm1.FormClick(Sender: TObject);
begin
if Button1.Enabled=false then
begin
Edit1.Text:=inttostr(Mouse.CursorPos.X);
Edit2.Text:=inttostr(Mouse.CursorPos.Y);
Button1.Enabled:=true;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Enabled:=false;
end;

点击Button1开始取坐标

Answer 3

哈~~~明白了