SelStrikethru(RichTextなど)

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

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

  procedure TForm1.btnStrike(Sender: TObject);
  begin
    if  btnBold.Down  then  begin
      {取り消し線にする}
      RichEdit1.SelAttributes.Style :=  RichEdit1.SelAttributes.Style + [fsStrikeout];
    end else begin
     {取り消し線を解除する}
      RichEdit1.SelAttributes.Style :=  RichEdit1.SelAttributes.Style - [fsStrikeout];
    end;
  end;