QuantumGrid - Next na cxgrid

Top  Previous  Next

// aplicar next na cxgrid

 

procedure TForm1.BitBtn1Click(Sender: TObject);

Var i: Integer;

begin

   i := Tb.DataController.FocusedRowIndex + 1;

   Tb.DataController.Controller.ClearSelection;

   Tb.DataController.Controller.FocusedRecordIndex := i;

   Tb.DataController.SelectRows(i, i);

   ActiveControl := Grid;

end;