Ordenar un DBGrid por columna

[Casimiro Noteví]

De todas formas, de una o de otra forma, lo que no se entiende es el problema que tienes.

[DOS]

el problema es que no se como hacerlo, como mencione me gustaria poder hacer click en el titulo de la columna y que se ordene por este, pero la codificacion que encontre trabaja con ADO.
se puede modificar esa codificacion para que funcione con Ttable y datasource?
Saludos

[[Caral]]

Hola
Todo se puede hacer amigo.
El asunto es:
1- Tiene que ser especificamente een el titulo del dbgrid (me parece que el cliente tendra que imaginar que es ahi, no lo veo muy logico)
2- Puede ser como dije antes en un combobox que indique la opcion de filtrado ? (me parece mas claro).
Saludos

[DOS]

Si tienes razon, a veces cuesta pensar que el cliente no tiene la mas minima idea de como funciona cada cosa y aunque pueda parecer mas simple hacer click en el titulo para ordenar cada columna, el cliente no se lo puede imaginar que hace eso.
Y como seria en un combobox, necesitaria un boton en donde codificar que lo ordene por cada eleccion, yo habia hecho esto y no funciono, pero talvez es algo parecido, no?

Código Delphi [-]
procedure TForm17.Button2Click(Sender: TObject);  
begin    
  Query1.Close;    
  Query1.SQL.Clear;    
  Query1.SQL.Add('Select Codigo,Servicio,Importe');    
  Query1.SQL.Add('From Table1 ');   
  Query1.SQL.Add('order by 2');    
  Query1.Active:=true;    
  Query1.Open;  
end;

[[Caral]]

Hola
No se por que pones un ejemplo con query y antes estabas pidiendo alguna opcion con tqble , no entiendo.
Bueno:
El concepto es simple:
Colocas un combobox con las opciones de filtrado (id, cliente, etc...).
En el evento onchange del combobox pones o haces el filtro en el caso de un table o la sentencia sql en el caso del query
Seria bueno saber con que lo vas a hacer para tratar de darte un ejemplo mas concreto.
Saludos

[DOS]

Lo hare con lo que crean que es mejor y mas sencillo.

[olbeup]

Que tal esto:

Código Delphi [-]
procedure TForm1.DBGrid1TitleClick(
  Column: TColumn);
{$J+}
const
  PreviousColumnIndex : integer = -1;
{$J-}
begin
  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
  begin
    if PreviousColumnIndex > -1 then
      DBGrid1.Columns[PreviousColumnIndex].Title.Font.Style :=
        DBGrid1.Columns[PreviousColumnIndex].Title.Font.Style - [fsItalic];

    Column.title.Font.Style := Column.title.Font.Style + [fsItalic];

    PreviousColumnIndex := Column.Index;

    if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort) = 0) then
      Sort := Column.Field.FieldName + ' DESC'
    else
      Sort := Column.Field.FieldName + ' ASC';
  end;
end;

Un saludo