Delphi 单击StringGrid列进行排序
代码说明:
Delphi 单击StringGrid列进行排序,StringGrid行的任意列单击,就会重新排序一次,排序规则可以自己定义,这种排序功能可有效提升StringGrid显示数据的易用性,增强其功能,提升用户体验,本例子源代码相当简单,对学习者也有很好的帮助作用。参见以下代码: begin if Button = mbRight then Exit; TStringGrid(Sender).MouseToCell(X, Y, vCol, vRow); if (vRow < 0) or (vRow >= TStringGrid(Sender).FixedRows) then Exit; StringGridRowSort(TStringGrid(Sender), vCol, vOldCol = vCol); if vOldCol = vCol then vOldCol := - vOldCol else vOldCol := vCol; end;
下载说明:请别用迅雷下载,失败请重下,重下不扣分!


