如何在StringGrid中实现如同dbgrid点击Title排序？

引言: 如何在StringGrid中实现如同dbgrid点击Title排序？

huyang 你好: DBGrid Title Click 可以自動排序嗎 ?

To Mickey 我是在dbgrid的OnTitleClick事件用 dm.AQry_ShowKkml.Sort:=Column.FieldName ' DESC'; 实现dbgrid的排序 不知道stringgrid中怎么实现点击顶上的标题栏实现该列排序

huyang 你好:    StringGrid 與 DBGrid 差異是很大的, StringGrid 所有 Cell 都需要程式處理.    如果你不介意使用 ClientDataSet , 可以用該控件保存資料, 並運用其 Index 來做排序, 然後"重新"填資料入 StringGrid.    下面源碼是, 取得 Click 在哪一個 Column 的 Sample, 參考看看 :

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var GC: TGridCoord;
begin
  GC := StringGrid1.MouseCoord(X,Y);
  if GC.Y in [0..StringGrid1.FixedRows-1] then // Title
    showmessage(' Click on Title, Column Index : '   inttostr(GC.X));
end;