OnClick? Relative Koorinate eines Drawgrids?

[DeddyH]

Ich hab auch Delphi 7

Delphi-Quellcode:

procedure TForm1.DrawGrid1Click(Sender: TObject);
var Maus,p: TPoint;
begin
  Maus := DrawGrid1.ScreenToClient(Mouse.CursorPos);
  DrawGrid1.MouseToCell(Maus.X,Maus.Y,p.X,p.Y);
  ShowMessage(Format('X: %d, Y: %d',[p.X,p.Y]));
end;