In einem Grid auf den nächsten selektierten Datensatz gehen

[Walter Landwehr]

Yes so geht es mit den DevExpress TcxGrid.

Delphi-Quellcode:

procedure TfrmSerienbrief.btnFirstClick(Sender: TObject);
begin
  if Sender = btnFirst then fSatzNummer := 0
  else if Sender = btnPrior then Dec(fSatzNummer)
  else if Sender = btnNext then Inc(fSatzNummer)
  else if Sender = btnLast then fSatzNummer := GridView.Controller.SelectedRowCount - 1;
  if (fSatzNummer > GridtView.Controller.SelectedRowCount - 1) then
    Dec(fSatzNummer);
  if (fSatzNummer < 0) then
    fSatzNummer := 0;
  GridView.Controller.SelectedRecords[fSatzNummer].Focused := True;
end;

Vielen Dank an alle.