Organizar datos en un DbGrid
 

Saludos a todos...

Como puedo organizar los datos de un dbgrid dando un click en el titulo de la columna...

coloqué este codigo en el evento OnTitleClick de la columna pero no me funciona.

procedure TfLecturaArchivo.gridTmpFileTitleClick(Column: TColumn);
var campo : String;
begin
campo := Column.FieldName;
dm.qSolicitudes.SQL.Clear;
dm.qSolicitudes.SQL.Add('select * from Solicitudes order by "'+campo+'"');
dm.qSolicitudes.Open;
showmessage('Fue ordenado por: '+Campo);
end;

¿Por que no usas la propiedad sort de la query?

Código Delphi [-]
Procedure TfLecturaArchivo.gridTmpFileTitleClick( Column : TColumn );
Var
  Campo : String;
Begin

  Campo:= '[' + column.FieldName + ']';

  If ( dm.qSolicitudes.Sort = Campo + ' ASC' ) Then
    dm.qSolicitudes.Sort := Campo + ' DESC'
  Else
    dm.qSolicitudes.Sort := Campo + ' ASC';

End;

Obviamente la consulta disparala antes en algun evento y pone en True la propiedad filtered de la query.

Tip: Si usás el DBGrid de Jedi, al poner en true la propiedad TitleButtons se habilitan las flechitas que indican el ordenamiento en el título.

Revisa este enlace: Sorting records in Delphi DBGrid by Clicking on Column Title.

Saludos.