Stringgrid und Hints

[Keldorn]

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; 
  X, Y: Integer); 
var 
  MyRow, MyCol: Integer; 
  oldhint:string; 
begin 
  oldhint:=StringGrid1.hint; 
  StringGrid1.MouseToCell(x, y, MyCol, MyRow); 
  if (MyRow<>-1) and (Mycol<>-1) then 
    StringGrid1.hint:=StringGrid1.Cells[mycol,myrow] 
   else 
    StringGrid1.hint:=''; 

  if oldhint<>StringGrid1.hint then Application.CancelHint; 
end;

ist doch gar kein Problem wie machst du es denn?

Mfg Frank