delphi - 在 Delphi 中使用复选框

Question

我的问题如下所示，所以我希望所有复选框粗体、斜体和下划线都能在我检查了所有复选框后解决。

我尝试从这个网站搜索类似的问题来帮助我，但他们的问题只是令人困惑..

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if Checkbox1.Checked = True then
  Label1.Font.Style := [fsBold] else
  Label1.Font.Style := [];
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
  if Checkbox2.Checked = True then
  Label1.Font.Style := [fsItalic] else
  Label1.Font.Style := [];
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
  if Checkbox3.Checked = True then
  Label1.Font.Style := [fsUnderline] else
  Label1.Font.Style := [];
end;

end;

Answer 1

字体样式是一组不同的 TFontStyle，因此对于每个复选框，您需要将相应的样式添加到集合中(如果已选中)或将其删除(如果未选中)，例如

if Checkbox1.Checked then
  Label1.Font.Style := Label1.Font.Style + [fsBold]; 
else
  Label1.Font.Style := Label1.Font.Style - [fsBold] 

PS:您应该始终直接使用 bool 值，而不是将它们与 True/False