一段简单的Delphi代码

unit Unit1;

interface

uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ComCtrls;

type  TForm1 = class(TForm)    Edit1: TEdit;    Button1: TButton;    Button2: TButton;    Button3: TButton;    RichEdit1: TRichEdit;    Button4: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);    procedure Button4Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;

var  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);begin Edit1.Text:='你';Edit1.Font.Color:=clRed;end;

procedure TForm1.Button2Click(Sender: TObject);begin Edit1.Text:='我';Edit1.Font.Color:=clBlue;end;

procedure TForm1.Button3Click(Sender: TObject);begin Edit1.Text:='他';Edit1.Font.Color:=clYellow;end;

procedure TForm1.Button4Click(Sender: TObject);begin  begin      Richedit1.Text:='我你他她';      Richedit1.SelStart:=0;      RichEdit1.SelLength:=2;      Richedit1.SelAttributes.Color:=clRed;   end;   begin       Richedit1.SelStart:=2;       RichEdit1.SelLength:=2;       Richedit1.SelAttributes.Color:=clBlue;   end;   begin       Richedit1.SelStart:=4;       RichEdit1.SelLength:=2;       Richedit1.SelAttributes.Color:=clyellow;   end;

end;

end.