procedure TForm1.DBGrid1TitleClick(Column: TColumn);begin if Fcolumn=nil then begin adoquery1.Sort:=Column.FieldName + ' ASC'; Fcolumn:=column; Column.Title.Caption:=column.Title.Caption+'▲'; Fsort:='ASC'; exit; end ; if Fcolumn<>column then begin adoquery1.Sort:=column.FieldName +' ASC'; column.Title.Caption:=column.Title.Caption+'▲'; Fcolumn.Title.Caption :=copy(Fcolumn.Title.caption,1,length(Fcolumn.Title.caption)-2); Fcolumn:=column; Fsort:='ASC'; end else if fsort='ASC' then begin adoquery1.Sort:=Column.FieldName + ' DESC'; Fcolumn.Title.Caption :=copy(Fcolumn.Title.caption,1,length(Fcolumn.Title.caption)-2); Column.Title.Caption:=column.Title.Caption+'▼'; Fcolumn:=column; Fsort:='DESC'; end else begin adoquery1.Sort:=column.FieldName +' ASC'; Fcolumn.Title.Caption :=copy(Fcolumn.Title.caption,1,length(Fcolumn.Title.caption)-2); column.Title.Caption:=column.Title.Caption+'▲'; Fcolumn:=column; Fsort:='ASC'; end; end;
CXGRID,DXDBGRID,EhLib
begin
adoquery1.Sort:=Column.FieldName + ' ASC';
Fcolumn:=column;
Column.Title.Caption:=column.Title.Caption+'▲';
Fsort:='ASC';
exit;
end ; if Fcolumn<>column then
begin
adoquery1.Sort:=column.FieldName +' ASC';
column.Title.Caption:=column.Title.Caption+'▲';
Fcolumn.Title.Caption :=copy(Fcolumn.Title.caption,1,length(Fcolumn.Title.caption)-2);
Fcolumn:=column;
Fsort:='ASC';
end
else
if fsort='ASC' then
begin
adoquery1.Sort:=Column.FieldName + ' DESC';
Fcolumn.Title.Caption :=copy(Fcolumn.Title.caption,1,length(Fcolumn.Title.caption)-2);
Column.Title.Caption:=column.Title.Caption+'▼';
Fcolumn:=column;
Fsort:='DESC'; end
else
begin
adoquery1.Sort:=column.FieldName +' ASC'; Fcolumn.Title.Caption :=copy(Fcolumn.Title.caption,1,length(Fcolumn.Title.caption)-2);
column.Title.Caption:=column.Title.Caption+'▲';
Fcolumn:=column;
Fsort:='ASC';
end;
end;