Home » Tipps & Tricks » Komponenten » TStringGrid » StringGrid den Zelleninhalt als Hint anzeigen
StringGrid den Zelleninhalt als Hint anzeigen
Variablen für letzte Zellen Position im Grid
var LastRow, LastCol : Integer; //Cell Hint anzeigen procedure TForm1.ShowCellHint(X,Y:Integer); var ACol, ARow : Integer; begin //ShowHint auf True setzen if StringGrid.ShowHint = False then StringGrid.ShowHint := True; //Col und Row Position lesen StringGrid.MouseToCell(X, Y, ACol, ARow); //wenn im gültigen Bereich zeige Zelleninhalt als Hint if (ACol -1) and (ARow -1) then StringGrid.Hint:=StringGrid.Cells[ACol,ARow]; if (AColLastCol) or (ARowLastRow) then begin Application.CancelHint; LastCol:=ACol; LastRow:=ARow; end; end;
Aufrufbeispiel:
procedure TForm1.StringGridMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ShowCellHint(X,Y); end;