發送到RichEdit的顏色并不如我自己所定義的色彩，見附圖， 我寫的代碼如下，請高手幫助檢查，謝謝。

procedure TForm1.BitBtn5Click(Sender: TObject); //發送memo1中的文字到RichEdit，設顏色為紅
var
b:integer;
begin
b:=Length(RichEdit1.text);
With RichEdit1 do
begin
Lines.Add(Memo1.Lines.Text);
SelStart:=b-Length(Memo1.Text);
SelLength:=Length(Memo1.Text);
SelAttributes.Color:=clred;
end;
end;
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
procedure TForm1.BitBtn6Click(Sender: TObject); //發送memo2中的文字到RichEdit，設顏色為藍色
var
i:integer;
begin
i:=Length(RichEdit1.text);
With RichEdit1 do
begin
Lines.Add(Memo2.text);
SelStart:=i-Length(Memo2.Text);
SelLength:=Length(Memo2.Text);
SelAttributes.Color:=clblue;
end;
end;

附加檔案：47164684a8228_11.PNG

編輯記錄

[code delphi]
unit fMain;

interface

uses
Classes, Graphics, Controls, Forms, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
RichEdit1: TRichEdit;
Button1: TButton;
Memo2: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
procedure AddToRichEdit(S: string; FontColor: TColor);
end;

var
Form1: TForm1;

implementation

uses SysUtils;

{$R *.dfm}

procedure TForm1.AddToRichEdit(S: string; FontColor: TColor);
var
P: Integer;
begin
P := Length(RichEdit1.Text);//Keep Append Position
with RichEdit1 do
begin
Lines.Add(Trim(S));
SelStart := P;
SelLength := Length(Trim(S));
SelAttributes.Color := FontColor;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AddToRichEdit(Memo1.Lines.Text, clRed);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
AddToRichEdit(Memo2.Lines.Text, clBlue);
end;

end.
[/code]