MouseEnter in TDBGrid

[Texas]

Wie kann ich ein MouseEnter oder Leave für eine TDBGrid umsetzen? Und zwar so das dieser immer ausgelöst wird wenn er eine Cell betritt bzw. verläst. Ich möchte in einer untergeordneten Tabelle mitblättern und brauche dazu ein neupositionierten in der Mastertabelle wenn die Mouse die Cell betritt ( ähnlich wie bei OnCellClick ) nur eben mit OnMouseEnter


danke schon mal
Michael

[Sharky]

Hai Texas,

anstelle des nachrüstens könntest Du auch einfach das MouseMove des DBGrids nehmen und dann mit MouseCoord die Zelle ermitteln über welcher der Cursor ist.

Delphi-Quellcode:

var
  mousecell : TGridCoord;

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  mousecell := DBGrid1.MouseCoord(x,y);
end;

[Texas]

Habe ich auch schon drann gedacht. Das Problem ist dabei nur das bei jeder bewegung der mouse die onmousemove ereignisse ständig neu aufgerufen werden. ich möchte aber nur ein mal in der untergeordneten tabelle suchen lassen.

Gruss Michael

[Sharky]

Hai Michael,

du brauchst Dir doch nur die letzte Zelle zu merken in der die Maus war. Wenn jetzt das MouseMove Ereigniss ausgelöst wird prüfst Du ob der Cursor über einen anderen Zelle ist und suchst nur dann in deiner abhängigen Tabelle.