سورت 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);