Mausposition im DBGrid

[Bolt Thrower]

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