怎样在图片上实现坐标定位

Question

有一副小地图，在地图上设置几个点，用户点击这些点时可以响应相应的鼠标事件，并且用户可以自己添加、修改这些点的坐标、名称。这样的功能改怎么实现。 
求解决方法！！！！有朋友给出了一个代码
----------------------------------引用 1 楼 yuqianyi1974 的回复:
Delphi(Pascal) code 
var 
  rec: array[0..2] of Tpoint; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  rec[strtoint(edit3.text)].X:=strtoint(edit1.Text);  // 
  rec[strtoint(edit3.text)].y:=strtoint(edit2.Text);  // 
end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i:integer;
begin
  if (rec[0].x=X) and (rec[0].y=Y) then
  begin
  end;
  if (rec[1].x=X) and (rec[1].y=Y) then
  begin
  end;
  if (rec[2].x=X) and (rec[2].y=Y) then
  begin
  end;end;---------------------------------------------还有2点问题
1.怎么在地图上显示点的名称
2.Button1Click这个事件是干吗的

Answer 1

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  rec[strtoint(edit3.text)].X:=strtoint(edit1.Text);  // 
  rec[strtoint(edit3.text)].y:=strtoint(edit2.Text);  // 
end; 
用来设置你的地图上的点的坐标。edit1.text的内容是x坐标，edit2.text为y，edit3的内容为点的序号的。显示点的名称：
image1.Canvas.TextOut(10,10,'mingzhi');

Answer 2

2.Button1Click这个事件是干吗的鼠标左键单击rec[strtoint(edit3.text)].X:=strtoint(edit1.Text);   
rec[strtoint(edit3.text)].y:=strtoint(edit2.Text);导入坐标