2D Array und MausPosition

[StefanDP]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  p: TPoint;
begin
  GetCursorPos(p);
  Button1.Caption := 'X: ' + IntToStr(p.X) + ', Y: ' + IntToStr(p.Y);
end;

das ist doch mal ein anfang?!