10/04/27 00:50:57
ああっ、分かりました！
SelStart := GetTextLen;
SelText := 'ABC';
ですね！
「Delphi SelText SelAttributes」でググると一番最初に出てくる
URLﾘﾝｸ(delphi.about.com)
の記事が分かりやすいです。
今までさんざん探してたんですが、こういう単純で基本的な内容のサンプルは初めて見ました。
ようするに、
with RichEdit1 do
begin
SelStart := GetTextLen;
SelAttributes.Color := clBlue;
SelText := 'エンバカデロ';
SelAttributes.Color := clBlack;
SelText := 'Delphi'+CRLF;
end;
みたいな感じにすればOkですね。これをprocedureにしてみます。
ありがとうございました。