SelUnderline(RichTextなど)

SelUnderlineプロパティは選択しているテキストに下線があるかどうかの取得, または下線を設定します。Delphiでは 「SelAttributes」プロパティ(TTextAttributes型)の 「Style」プロパティで設定可能です。Styleは集合型です。

■ TRichEditに下線を設定する例
  procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
  begin
    {RichEdit内で現在のカーソル位置が下線かどうかを調べる}
    {下線ならツールバーの下線ボタンを押下状態にする}
    btnUnder.Down  :=  (fsUnderline in RichEdit1.SelAttributes.Style);
  end;

  procedure TForm1.btnUnder(Sender: TObject);
  begin
    if  btnBold.Down  then  begin
      {下線にする}
      RichEdit1.SelAttributes.Style :=  RichEdit1.SelAttributes.Style + [fsUnderline];
    end else begin
     {下線を解除する}
      RichEdit1.SelAttributes.Style :=  RichEdit1.SelAttributes.Style - [fsUnderline];
    end;
  end;