掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TRichEdit一部重複の装飾変更 (ID:42501)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ありがとうございます、完璧です >できたらサンプルも と仰るので出来るだけ短くまとめました //事前に数値を入れておく procedure TForm1.FormCreate(Sender: TObject); begin//uses RichEdit BoldSpeedButton.Tag:=CFE_BOLD; ItalicSpeedButton.Tag:=CFE_ITALIC; UnderlineSpeedButton.Tag:=CFE_UNDERLINE; StrikeoutSpeedButton.Tag:=CFE_STRIKEOUT; ProtectedSpeedButton.Tag:=CFE_PROTECTED; LinkSpeedButton.Tag:=CFE_LINK; end; //共通イベントハンドラ procedure TForm1.BoldSpeedButtonClick(Sender: TObject); var CFormat: CHARFORMAT2;//RichEditをusesにいれる CEffects:integer; begin FillChar(CFormat, SizeOf(CFormat), 0); CFormat.cbSize := SizeOf(CFormat); CEffects:=(Sender as TComponent).Tag; CFormat.dwEffects := CFormat.dwEffects or CEffects; CFormat.dwMask := CEffects; RichEdit1.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@CFormat)); end; 以上、ありがとうございましたm(_ _)m
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.