Hab' gerade gelesen, dass TMouse bis einschließlich "Delphi 3" nicht zur Verfügung steht.
Alternativ könntest Du allerdings auf folgende Weise versuchen, TMouse zu umgehen:
Delphi-Quellcode:
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
P : TPoint;
MousePos : TPoint;
Coord : TGridCoord;
begin
GetCursorPos(P);
MousePos := DBGrid1.ScreenToClient(P);
Coord := DBGrid1.MouseCoord(MousePos.X, MousePos.Y);
ShowMessage(IntToStr(Coord.X) + ', ' + IntToStr(Coord.Y));
end;
Viele Grüße,
Bolt Thrower