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;
Stephan B.
"Lasst den Gänsen ihre Füßchen"