Delphiのチェックボックスの使用

Question

私の問題は以下のようなものなので、すべてチェックボックスをオンにすると、太字、イタリック、アンダーラインのすべてのチェックボックスが機能します。

私は、各チェックボックスのためにあなたが追加する必要があるので、フォントスタイルは、異なるTFontStyle Sのセットです

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

...ちょうど混乱に私が、その質問を助けるために、このサイトから同様の問題を検索してみてくださいそれぞれのスタイルをセットに設定し、チェックされている場合はそれを削除します。

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

PS：あなたは常にTrue/Falseにそれらを比較直接ブール値を使用してはならない