点击DataGrid的列头，排序是否可以改成默认是降序？**

Anson.Leung

如题，现在默认是点一下是升序，再点一下是降序，能不能换过来？多谢！

lixy

这个改不了。在控件内部呢。

zfang

补充一句，在不改变控件的情况下，自己去接管这个排序（不知道是否可以满足楼主的要求）
仅供参考（控制第一列的排序）
procedure TMAINFORM.DataGrid2ColumnClick(Sender: TObject; Column: TTreeListColumn);
begin
  if Column.Index = 0 then
  begin
    if (B.DataSet.Order = '') or
       (StringUtils.Length(B.DataSet.Order) =
         StringUtils.Length(DataGrid2.Columns[Column.Index].FieldName)) then
    begin
      B.DataSet.Order := SysUtils.UpperCase(DataGrid2.Columns[Column.Index].FieldName) + ' Desc';
    end
    else
    begin
      if SysUtils.UpperCase(B.DataSet.Order) =
             SysUtils.UpperCase(DataGrid2.Columns[Column.Index].FieldName) then
        B.DataSet.Order := SysUtils.UpperCase(DataGrid2.Columns[Column.Index].FieldName) + ' Desc'
      else
        B.DataSet.Order := SysUtils.UpperCase(DataGrid2.Columns[Column.Index].FieldName);
    end;

    SysUtils.Abort;
  end;
end;

注：B是数据集代理，DataGrid2是一个TDataGrid