本文整理自网络，侵删。
procedure TfrmTraceReport.DBGrid1TitleClick(Column: TColumn);
var
SortField, FieldTitle: string;
begin
SortField := Column.Field.FieldName;
FieldTitle := Column.Title.Caption;
ShowMessage(SortField + ' ' + FieldTitle);
if Pos('▲', FieldTitle) > 0 then
begin
ConnectDM.ADOQryTraceReport.Sort := SortField + ' ASC';
FieldTitle := StringReplace(FieldTitle, '▲', '?', [rfReplaceAll]);
end
else if Pos('?', FieldTitle) > 0 then
begin
ConnectDM.ADOQryTraceReport.Sort := SortField + ' DESC';
FieldTitle := StringReplace(FieldTitle, '?', '▲', [rfReplaceAll]);
end
else
begin
ConnectDM.ADOQryTraceReport.Sort := SortField + ' DESC';
FieldTitle := FieldTitle + '?';
end;
DBGrid1.Columns[Column.Index].Title.Caption := FieldTitle;
end; 相关阅读 >>
Delphi xe7的android应用设定wifi的有效无效
Delphi 双击listbox1内容，数据插入到memo1/synedit1鼠标指定位置
Delphi 判断图像格式bmp jpg gif pcx png psd ras sgi tiff err
Delphi 2009 之 tstringbuilder 类[3]: replace
Delphi研究之驱动开发篇（七）--利用共享内存与用户模式
Delphi xe8 androdi利用httpclient实现的一个app自动更新组件
更多相关阅读请进入《Delphi》频道 >>
