سورت dbgrid در دلفی با کلیک بر روی تایتل

سلام

با این کد می تونید با کلیک بر روی تایتل دی بی گرید ، همون فیلد رو سورت کنید.

procedure TForm1.DBGrid1TitleClick(Column: TColumn);

var cFieldName:string;

begin

      cFieldName:= DBGrid1.Columns[Column.Index].FieldName;

      Adoquery1.Sort:=cFieldName;

end;

راه دوم

var KindSotr1:Boolean;

if KindSotr1 then

    datamodule3.customers.Sort:=Column.FieldName+' DESC'

  else

    datamodule3.customers.Sort:=Column.FieldName;

  KindSotr1:=not(KindSotr1);