Im TStringGrid den letzten Datensatz markieren

[LOMBI]

Hallo,

im onCreate meiner Form lasse ich mir stets den letzten Datensatz unten im TStringGrid anzeigen:

Delphi-Quellcode:

...
GridAdr.TopRow :=  GridAdr.RowCount - GridAdr.VisibleRowCount;

Gleichzeitig soll dieser Datensatz markiert sein.

Delphi-Quellcode:

...
 GridAdr.Selection := TGridRect(Rect(GridAdr.FixedCols,
                                        GridAdr.Row,
                                        GridAdr.ColCount-1,
                                        GridAdr.Row));

Problem:

Bei Aufruf der Form bleibt der Datensatz in der ersten Zeile oben markiert.
Wer kann mir bitte bei der Lösung helfen?

Gruß
Lombi

[marabu]

Hallo Lombi,

du musst unterschiedlich vorgehen, je nachdem ob dein Grid die Option goEditing hat oder nicht:

Delphi-Quellcode:

// ...
begin
  with StringGrid do
  begin
    if goRowSelect in Options
      then Row := Pred(RowCount)
      else Selection := TGridRect(Rect(FixedCols, Pred(RowCount), Pred(ColCount), Pred(RowCount)));
    if VisibleRowCount < (RowCount - FixedRows)
      then TopRow := Succ(RowCount - FixedRows - VisibleRowCount)
      else TopRow := FixedRows;
  end;
  // ...
end;

Freundliche Grüße