FontBold(Labelなど)

FontBoldプロパティはその名の通りフォントを太字にします。Delphiでは TFontクラスの「Style」プロパティで設定しますが, このプロパティは集合型です。太字は Styleプロパティに fsBoldを追加します。解除する場合は fsBoldを取り除きます。

■ TLabelを太字にする例

procedure TForm1.Button3Click(Sender: TObject); begin {スタイルに太字が指定されているか？} if fsBold in Label1.Font.Style then begin {スタイルから太字だけを解除する} Label1.Font.Style := Label1.Font.Style - [fsBold]; end else begin {スタイルに太字を設定する} Label1.Font.Style := Label1.Font.Style + [fsBold]; end; end;