SelBold(RichTextなど)

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

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

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