delphi 标头控件（THeaderControl）中的显示复选框

在Windows Vista或更高版本中，可以在标题控件中显示一个复选框。

将CheckBoxes属性设置为True，以显示标题控件中的复选框。

HeaderControl1.CheckBoxes := True;

将显示复选框的部分的CheckBoxes属性设置为True。

即使THeaderSection的CheckBoxes属性设置为True，如果THeaderControl的CheckBoxes属性为False，也不会显示该复选框。

HeaderSection.CheckBox := True;

可以使用THEaderSection的Checked属性获取并设置复选框的状态。

HeaderSection.Checked := True;

在以下示例程序中，在运行时将一个部分添加到标题中以设置复选框状态。

procedure TForm1.FormCreate(Sender: TObject);

var

HeaderSection: THeaderSection;

begin

HeaderControl1.CheckBoxes := True;

HeaderSection := HeaderControl1.Sections.Add;

HeaderSection.Text := '软件名称';

HeaderSection.Width := 120;

HeaderSection.CheckBox := True;

HeaderSection.Checked := True;

HeaderSection := HeaderControl1.Sections.Add;

HeaderSection.Text := '语言';

HeaderSection.Width := 120;

HeaderSection.CheckBox := True;

end;

推荐分享