(Resolvido) Ordenar Dados do DBGrid com a coluna

[danielrgoes]

Boa Tarde pessoal

Gostaria de saber se tem como eu fazer o DbGrig organizar os dados clicando no titulo da coluna

ou seja faze igual o Windows Explorer

Abraços

[Douglas Soares]

coloca isso no OnTitleClick do DBGrid

if 'a' + Column.FieldName = cds.IndexName then
  cds.IndexName := 'd' + column.FieldName
else
  cds.IndexName := 'a' + column.FieldName;

Abraços

[danielrgoes]

Douglas não deu certo não da o seguinte erro

CDS:index 'ANOME_CLIENTE' not fond

[Douglas Soares]

Perdoe-me....

Coloque isso no FormCreate que vai funcionar...

procedure Tform1.FormCreate(Sender: TObject);
var
i : integer;
begin
  for i := 0 to cds.FieldCount - 1 do
  begin
    cds.IndexDefs.Add('a' + cds.Fields[i].FieldName,
      cds.Fields[i].FieldName, []);
    cds.IndexDefs.Add('d' + cds.Fields[i].FieldName,
      cds.Fields[i].FieldName, [ixDescending]);
  end;
end;

Abraços

[danielrgoes]

Douglas agradeço muito a ajuda

consegui fazer assim

procedure TFrm_abrir_projeto.DBGrid1TitleClick(Column: TColumn);

var

i ,col:integer;

begin

Try

for i:=0 to Column.Grid.FieldCount - 1 do

begin

DBGrid1.Columns.Items.Title.Font.Color:=ClBlack;//Cor da Fonte

DBGrid1.COLUMNS.ITEMS.TITLE.FONT.STYLE := [];//Cot da Fonte

DBGrid1.Columns.Items.Title.Color:=clBtnFace;//Cor do Fundo do Titulo Normal

Column.Title.Color :=clSilver;//Cor do Fundo do Titulo Selecionado

COLUMN.TITLE.FONT.STYLE := [FSBOLD];

Column.Title.Font.Color:=ClBlue;

Column.Font.color:=clTeal;

Col:= DBGrid1.Columns[Column.Index].Index;

DBGrid1.Columns.Items.Font.color:=ClBlack;

(modulo.DS_projeto.DataSet as TClientDataSet).IndexFieldNames := Column.FieldName;

end;

Except

ShowMessage('Não foi possivel organizar');

End;

end;

[Douglas Soares]

Isso que eu chamo de adaptação huahuashuas :rolleyes:

Qualquer problema é só postar!

Abraços