掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字列の一部の色を変えてTextOutするには？ (ID:37300)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
文字を書いた後でしたら、範囲選択して、ボタンクリック のような感じですかね？ { Private 宣言 } function CurrText: TTextAttributes; function TForm1.CurrText: TTextAttributes; begin if RichEdit1.SelLength > 0 then Result := RichEdit1.SelAttributes else Result := RichEdit1.DefAttributes; end; procedure TForm1.Button1Click(Sender: TObject); begin CurrText.Color := clRed; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.