Hint über Zellen im Stringgrid

[seifman]

Ist es möglich im Stringgrid einen Hint über einer bestimmten Zelle anzuzeigen?
In meinem Fall habe ich ein Stringgrid, in deren erster Reihe die Nummer des jeweiligen Tages. Ich möchte nun, dass sobald man mit der Maus über die betreffende Zelle fährt ein Hint mit dem kompletten Datum hochpoppt, da im Grid unter Umständen auch mehrere Monate dargestellt werden können.

Danke. MfG seifman

[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;

[seifman]

Ich habe es ein wenig angepasst und es hat funktioniert.

Vielen Dank.

seifman