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

2024-10-31 02:24:04
推荐回答(3个)
回答1:

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

回答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开始取坐标

回答3:

哈~~~明白了