W jaki sposób przescroolować StringGrid do ostatniej pozycji

wotik

2022-01-19T12:17:11+01:00

Rejestracja: dni
Ostatnio: dni
Lokalizacja: Vloscovia
Postów: 35

Witam
Może głupie pytanie ale męczę się z tym już jakiś czas...
W jaki sposób, programowo, przescroolować zawartość StringGrida do ostatniego wiersza i ew. go zaznaczyć i "podświetlić"?
Jakieś wskazówki?

cerrato

2022-01-19T13:31:15+01:00

Rejestracja: dni
Ostatnio: dni
Lokalizacja: Poznań
Postów: 9018

Napisane na szybko i brzydko, ale działa i pokazuje mechanizm ;)

Kopiuj

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
    Zaznaczenie: TGridRect;
begin
  Zaznaczenie.Top:= 995;
  Zaznaczenie.Bottom:= 997;
  Zaznaczenie.Left:= 1;
  Zaznaczenie.Right:= 3;
  for i:= 1 to 999 do
    begin
      Form1.StringGrid1.RowCount:= (Form1.StringGrid1.RowCount + 1);
      Form1.StringGrid1.Cells[1, i] := IntToStr(i);
    end;
  Form1.StringGrid1.Row := (Form1.StringGrid1.RowCount - 1);
  Form1.StringGrid1.Selection:= Zaznaczenie;

end;

flowCRANE

2022-01-19T16:46:17+01:00

Rejestracja: dni
Ostatnio: dni
Lokalizacja: Tuchów
Postów: 12269

Mam łatwiejsze rozwiązanie:

Kopiuj

StringGrid.TopRow := StringGrid.RowCount - 1;
StringGrid.Selection := Rect(
  0,
  StringGrid.RowCount - 1,
  StringGrid.ColCount - 1,
  StringGrid.RowCount - 1
);