SelItalic(RichTextなど)

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

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

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