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

本文整理自网络，侵删。

 
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 string.split 按照任意字符串分割语句

Delphi下firedac连接mysql数据库零起点

Delphi 图像翻转

Delphi 2009 之 tstringbuilder 类[7]: tostring

Delphi的tservice 服务路径获取 dll中获取文件路径

Delphi fmx关闭安卓程序

Delphi d10.x 安卓app开发中创建密钥库文件

Delphi 遍历所有目录和子目录下的文件名（可按后缀名遍历）

Delphi 关于字符串的一些使用技巧

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

转载请注明出处：木庄网络博客 » Delphi中DBgrid控件数据库点击某列按序排列