关于DBgridEh，点击标题，自动排序

Question

补丁，点击标题事件代码如下：procedure TForm7.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
Unit2.DataModule2.ClientDataSet7.addindex(Column.FieldName,Column.FieldName,[],Column.FieldName);
Unit2.DataModule2.ClientDataSet7.indexname:=Column.FieldName ;
end;

Answer 1

在OptionsEH中设置dghAutoSortMarking设置成True。

Answer 2

重新打开,应该要重新初始化,比如DataSet重新Open

Answer 3

在打开窗体之前重新初始化，如果你现在实现的代码放在OnCreate事件中，移动OnShow中就可以了

Answer 4

根本不用添加代码的，uses EhlibCds
DBGridEh1.ColumnDefValues.Title.TileButton:=True;
DBGridEh1.OptionsEh:=dghAutoSortMarking;
DBGridEh1.SortLocal:=True;