DBGRIDEH增加排序功能

DBGridEh1.SortLocal:=True;
DBGridEh1.OptionsEh:=DBGridEh1.OptionsEh+[dghAutoSortMarking];
for I:=0 to DBGridEh1.Columns.Count-1 do DBGridEh1.Columns[I].Title.TitleButton:=True;