dbgrideh的title按钮问题??

[ldm0911]

今天安装了dbgrideh3.6
想实现点击title按钮实现列的排序,把列的titlebutton设为true,写好代码之后,运行一看
title仍然没有按钮,点击一点反映也没有,和dbgrid一样,有人试过这种问题吗??
procedure Tfrmmain.dbgGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
Column: TColumnEh);
begin
if column.Title.SortMarker=smdowneh then
adoQuery1.Sort :=column.FieldName
else
adoQuery1.Sort :=column.FieldName +' DESC';
end;
这是我的代码.