Delphi中DBgrid控件数据库点击某列按序排列


本文整理自网络,侵删。

 

procedure Tmainform.DBGrid2TitleClick(Column: TColumn);

var i : integer;
begin
  for i:= 1 to DBGrid2.Columns.Count do
  begin
    //恢复所有标题字体为默认
    DBGrid2.Columns[i-1].Title.Font.Color := clWindowText;
    DBGrid2.Columns[i-1].Title.Font.Style := [];
  end;
  if DataModule1.recevierADOQuery.Sort<>(Column.FieldName+' ASC') then      //判断原排序方式
  begin
    DataModule1.recevierADOQuery.Sort := Column.FieldName+' ASC';
    Column.Title.Font.Color := clRed;          //改变标题行字体为红色,表示当前的排序方式为升序
    Column.Title.Font.Style := [fsBold];
  end
  else
  begin
    DataModule1.recevierADOQuery.Sort := Column.FieldName+' DESC';
    Column.Title.Font.Color := clBlue;         //改变标题行字体为红色,表示当前的排序方式为降序
    Column.Title.Font.Style := [fsBold];
  end;
end;
――――――――――――――――

原文链接:https://blog.csdn.net/delphi308/article/details/20243871

相关阅读 >>

Delphi第三方控件通用安装方法

Delphi 字符串常识

Delphi indy控件实现网络验证与asp通信

Delphi 2009 之 tcategorypanelgroup[2]: headeralignment、gradientdirection

Delphi 从文件中读取图像类型

Delphi 数组与枚举

Delphi和outputdebugstring

Delphi 如何判断字符串是否是有效email地址

Delphi xe5 安卓设置屏幕横屏竖屏

Delphi 的按位运算详解

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...