Maus-Ereignisse im Sringgrid

[JoelH]

@Luckie

Wie kann ich dass Teil beständig machen, so dass es auch die Hints wechselt wenn man von einer Zelle zu einer anderen geht ? Leider wird dort erst ein Hint angezeigt wenn man die Zelle markiert oder das Grid komplett verlässt und dann wieder zurückkehrt aufs Grid. Aber wenn man sich nur im Grid bewegt verändert sich der Hint irgendwie nimmer

mein Code dazu

Delphi-Quellcode:

procedure Tfrm_Objektuebersicht.stg_patenschaftenMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  MyRow, MyCol: Integer;
  betrag : currency;
  waehrung, helpstring : String;
begin
  stg_patenschaften.MouseToCell(x, y, MyCol, MyRow);
  if (Mycol = 1) then
  begin
    stg_patenschaften.showhint := true;
    if (MyRow > 0) then
    begin
      helpstring := trim(stg_patenschaften.cells[MyCol,MyRow]);
      while(POS('.',helpstring) > 0) do
        delete(helpstring,POS('.',helpstring),1);
      waehrung := Trim(copy(helpstring,POS(' ',helpstring),length(helpstring)));
      if (trim(waehrung) = '?') then waehrung := 'EUR';
      try
        betrag := strtoCurr(Copy(helpstring,1,POS(' ',helpstring)));
        stg_patenschaften.Hint := FORMAT('%12.2n',[Waehrungenanpassenfueranzeige(betrag,'EUR',waehrung)])+' '+euro(global_wkz);
      except
       // Ist keine Zahl also kann man auch nix anzeigen !
       stg_patenschaften.showhint := false;
      end;
    end;
  end
  else stg_patenschaften.showhint := false;
end;