本文整理自网络，侵删。
procedure TFrom1.DBG1TitleClick(Column: TColumn);
var
i:integer;
begin
if Pos('◆',Column.Title.Caption)>0 then begin
if Pos(' DESC',Q1.Sort)>0 THEN BEGIN
Q1.Sort:=Column.FieldName+' ASC';
END
ELSE BEGIN
Q1.Sort:=Column.FieldName+' DESC';
END
end
else begin
for i:=0 to DBG1.Columns.Count-1 do begin
IF Pos('◆',DBG1.Columns[i].Field.DisplayLabel)>0 THEN BEGIN
DBG1.Columns[i].Title.Caption:=COPY(DBG1.Columns[i].Field.DisplayLabel,1,Pos('◆',DBG1.Columns[i].Field.DisplayLabel)-1);
END
ELSE BEGIN
DBG1.Columns[i].Title.Caption:=DBG1.Columns[i].Field.DisplayLabel;
END;
end;
Column.Title.Caption:=Column.Field.DisplayName+' ◆';
Q1.Sort:=Column.FieldName+' DESC';
end;
end;
相关阅读 >>
Delphi xe中windows7新的taskbar功能的使用
Delphi tms web core twebsocketclient
更多相关阅读请进入《Delphi》频道 >>
