procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
if ClientDataSet1.IndexFieldNames <> '' then
DBGrid1.Columns[ClientDataSet1.FieldByName(
ClientDataSet1.IndexFieldNames).Index].Title.Color :=
DBGrid1.fixedColor;
if not (Column.Field.DataType in [ftBlob,ftMemo]) then
begin
ClientDataSet1.IndexFieldNames := Column.FieldName;
Column.Title.Color := $00FFBB77;
end;
Flavio escreveu:
>
> Olá pessoal, boa tarde,
>
> Estou querendo ordenar um DBGrid de acordo com a coluna que o usuário
> escolher. Alguem sabe como ??
>
> No caso, o dataSet do DBGrid é uma Query.
>
> Obrigado pela atenção.
> Flávio.
>
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
