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;



联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678