Hint auf DBGRid

[PM Heiko]

Hallo,

ich versuche einen Hint auf einem DBGrid zu erzeugen.

Der HintText soll aus einem Feldinhalt des Datensatzes sein, über dem sich die Maus gerade befindet.

Ich bekomme jedoch nicht auf den Datensatz der sich hinter der Maus verbirgt, erst ein Klick darauf wechselt den Datensatz.

Kann mir jemand einen kleinen Tipp geben...

Heiko

[Uwe Merckens]

DB Grid Hint

Hallo,

das funktioniert:

type
  THackDbGrid = class(TDBGrid);

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  gc: TGridCoord;
  dbg: TDBGrid;
  SavedActiveRec: integer;
begin
  dbg := TDBGrid(Sender);
  gc := dbg.MouseCoord(X, Y);
  if (gc.X > 0) and (gc.X < dbg.Columns.Count) and (gc.Y > 0) then
  begin
    SavedActiveRec := THackDbGrid(Dbg).DataLink.ActiveRecord;
    THackDbGrid(Dbg).DataLink.ActiveRecord := gc.Y - 1;
    Dbg.Hint := dbg.Columns[gc.X - 1].Field.AsString;
    THackDbGrid(Dbg).DataLink.ActiveRecord := SavedActiveRec;
  end
  else
    Dbg.Hint := '';
end;

Viel Erfolg!

Gruß
Uwe