• Ordenação DBGrid

procedure TfrmModeloBusca.grdBuscaColumnSort(Column: TUniDBGridColumn;
  Direction: Boolean);
begin
  TErp.BD.queryOrder(qryBusca, Column.FieldName, Direction);
end;

Código: Selecionar todos

procedure TfrmModeloBusca.UniFormCreate(Sender: TObject);
begin
  for I := 0 to grdBusca.Columns.Count-1 do
    grdBusca.Columns[I].Sortable := True;
end;

*** ATENÇÃO ***
O codigo abaixo faz com que o evento onColumnSort não seja disparado é necessario verificar a existencia desse codigo no pas e dfm e remove-lo.

Código: Selecionar todos

sender.setRemoteSort(false);