Hint über Zellen im Stringgrid

[Sharky]

Hai seifman,

Zitat von seifman:

Ist es möglich im Stringgrid einen Hint über einer bestimmten Zelle anzuzeigen? ...

Das geht über die Eigenschaft .Hint des TStringGrids und die Methode .OnMouseMove
Hier mal ein einfaches Beispiel. Dieses solltest Du für deinen Fall anpassen können.

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  col,
  row : Integer;
  oldhint  : String;
begin
  StringGrid1.MouseToCell(x,y,col,row);  // Celle unter der Maus ermitteln
  StringGrid1.ShowHint := False;
  if (col = 1) then  // Hints nur in Spalte 1
  begin
    oldhint  := StringGrid1.Hint;
    case row of
     1 :  StringGrid1.Hint := 'Eins';  // Hint für Zeile 1
     2 :  StringGrid1.Hint := 'Zwei';  // Hint für Zeile 2
     3 :  StringGrid1.Hint := 'Drei';  // usw.
    end;
    StringGrid1.ShowHint := True;
    if (oldhint  <> StringGrid1.Hint) then
    begin
      Application.CancelHint;
    end;
  end;
end;