巧用DBGrid控件的Sort属性实现“点击标题栏自动排序功能”。(改进版本)[2]

    dbgrid1.columns[i-1].title.font.color := clwindowtext;
    dbgrid1.columns[i-1].title.font.style := [];
  end;
  if adoquery1.sort<>(column.fieldname+' asc') then  //判断原排序方式
  begin
    adoquery1.sort := column.fieldname+' asc';
    //column.title.font.color := clred;          //改变标题行字体为红色，表示当前的排序方式为升序
    column.title.font.style := [fsbold];
    column.title.caption:='▲'+column.title.caption; //标题加上三角形表示当前排序方式为升序;
  end
  else begin
    adoquery1.sort := column.fieldname+' desc';
    //column.title.font.color := clblue;         //改变标题行字体为红色，表示当前的排序方式为降序
    column.title.font.style := [fsbold];
    column.title.caption:='▼'+column.title.caption;  //标题加上倒三角形表示当前排序方式为降序;
  end;
end;