dbgrideh如何實現點擊標題排序

　　數據源為adoQuery

　　1、首先設置dbGridEh裡需要排序的字段的Title->Titlebutton屬性為true
　　

　　2、設置dgGridEh的optionsEh->dbhautoSortMarking屬性為true
　　

　　3、在dbGridEh的ontitleButtonClick事件裡面判斷。
　　

　　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;