一个关于DBGrid的问题

Question

现在有一个dbgrid，我想实现一个功能，就是使标题栏变成按钮那样，可以在点击的时候下陷。同时在点击某一列的标题栏的时候，对此列排序。dbgrid的onclick事件不会使标题栏下陷，求助。

Answer 1

点击表头排序:
;//注：a01,a02为adoquery1取回来的字段名，dbgrid1与adoquery1捆绑procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var id:integer;
sortfield:string;
begin
if not adoquery1.isempty then
begin
id:=Column.ID;
 case id of
        0:sortfield:='a01 ASC';//ASC为升序
        1:sortfield:='a02 ASC' ;
 end;
adoquery4.Sort:=sortfield;
end;
end;

Answer 2

最好是去找一个别的DBGRID控件，如 EhLib3、DevExpress QuantumGrid、InfoPower3000Pro_vcl6 里面的GRID控件很容易就实现了。