方法一:
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;
|