FontUnderline(Labelなど)

FontUnderlineプロパティは文字に下線を設定します。Delphiでは TFontクラスの「Style」プロパティで設定しますが, このプロパティは集合型です。太字は Styleプロパティに fsUnderlineを追加します。解除する場合は fsUnderlineを取り除きます。

■ TLabelに取り消し線を設定する例

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