Question

请问怎么让delphi中的每一个dbgrid都可以点击表头排序

希望有一个function之类的可以让每一个dbgrid都排序，不仅是让其中一个dbgrid排序

Answer 1

写个循环，获取页面的控件，循环中判断控件类型，如果为DBGrid，设置排序属性为True

追问

dbgrid有排序属性么，设置了这个属性为true，这个dbgrid就可以点击排序了？这个属性的英文是什么啊

Answer 2

dbgrid本身只能是支持点击标题栏可以响应事件,具体排序的算法还要你自己来写代码!
你可以使用ehlib 的 dbgrideh, 这个控件是支持TITLE排序的!
另外,也可以使用devexpress vcl 这个是自动支持排序的

追问

不方便用第三方控件，具体排序的算法我在每一个dbgrid的双击表头那里也会写，但我不想每一个dbgrid都去写，有没有一个程序让每个dbgrid都双击可以排序啊

追答

可以考虑做个做程,捕获点击到的dbgrid的title 的sender,根据sender的不同做不同的算法...

追问

就是不会写啊

追答

procedure TForm1.dbgrid1TitleClick(Column: TColumn);
begin
  case Column.ID of
    0:
      begin
       //第一列的排序代码 
      end;
    1:
      begin
       //第二列的排序代码 
      end;
   //.......以下类推...
  end;
end;

Answer 3

换成 dbgrideh 控件好了