Cxgrid 点击列进行排序时改变列标题的样式风格

方法一：

procedure TForm1.cxGrid1DBTableView1CustomDrawColumnHeader(

 Sender: TcxGridTableView; ACanvas: TcxCanvas;

 AViewInfo: TcxGridColumnHeaderViewInfo; var ADone: Boolean);

begin

 if AViewInfo.Column = Sender.OptionsBehavior.IncSearchItem then

 begin

   ACanvas.FillRect(AViewInfo.Bounds, clRed);

   ACanvas.Font.Style := [fsBold];

 end;

end;

procedure TForm1.cxGrid1DBTableView1ColumnHeaderClick(

 Sender: TcxGridTableView; AColumn: TcxGridColumn);

begin

 Sender.OptionsBehavior.IncSearchItem := AColumn;

end;

方法二：

Var

FColumn: TcxGridColumn;

procedure TForm1.cxGrid1DBTableView1ColumnHeaderClick(

 Sender: TcxGridTableView; AColumn: TcxGridColumn);

begin

 if FColumn <> nil then

   FColumn.Styles.Header := nil;

 Sender.OptionsBehavior.IncSearchItem := AColumn;

 AColumn.Styles.Header := cxStyle1;

 FColumn := AColumn;

end;