关于dbgrid的问题

Question

很都软件都有的，就是在它的标题中点击一下就按升序排列，再点击一下就按降序排列，这是怎么实现的

Answer 1

有的是TListView实现的，dbgrid也可以，麻烦点.....

Answer 2

在DBGrid1TitleClick事件下写代码：
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var i:integer;
     fieldname:string;
begin
i:=Column.Index;
fieldname:=dbgrid1.Columns[i].Title.Caption+' ASC';
adoquery1.Sort:=fieldname;
end;