本文整理自网络,侵删。
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 2009 之 tcategorypanelgroup[2]: headeralignment、gradientdirection
更多相关阅读请进入《Delphi》频道 >>