关于RichEdit!

Question

如果我想通过button1的onclick事件 在richedit1中增加 
一个字符串
 默认颜色的'11111'+ 红颜色的'2222' 该如何实现?

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Clear;
RichEdit1.Lines.Add('1111');
RichEdit1.SelAttributes.Color := clRed;
RichEdit1.Lines.Add('222');end;procedure TForm1.Button2Click(Sender: TObject);
var
  s1,s2 : string;
begin
  RichEdit1.Clear;
  s1 := '1111';
  s2 := '2222';
  RichEdit1.Lines.Add(s1+s2);
  RichEdit1.SelStart := length(s1);
  RichEdit1.SelLength := length(s2);
  RichEdit1.SelAttributes.Color := clRed;end;end.