Jak si v Delphi komponentě Developer Express TcxGridView zapamatovat pozici po smazání

03.10.2015, Vladimír Klaus, navštíveno 4400x

Tento mini článek je určen pro uživatele Delphi a komponent Developer Express.

var
  FocusedRow, TopRow: Integer;

begin
  //Zapamatuji si horní řádek
  //(vlastně jde o vertikální pozici scrollbaru)
  TopRow:=MainGridView.Controller.TopRowIndex;
  //Zapamatuji si fokusovaný řádek
  FocusedRow:=MainGridView.DataController.FocusedRowIndex;
  //provedu smazání (je jedno jak)
  //...
  //nastavím fokus na řádek, který jsem si zapamatoval
  //(je jedno, že už neexistuje)
  MainGridView.DataController.FocusedRowIndex:=FocusedRow;
  //a taky nastavím, jaká řádka má být nahoře
  MainGridView.Controller.TopRowIndex:=TopRow;
end;