怎样在RichEdit中改变选中字体的大小和颜色？

Question

请问怎样在RichEdit中改变选中字体的大小和颜色？（不是全部字体）

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    btncolor: TButton;
    ColorDialog1: TColorDialog;
    FontDialog1: TFontDialog;
    btnfont: TButton;
    procedure btncolorClick(Sender: TObject);
    procedure btnfontClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btncolorClick(Sender: TObject);
begin     if  ColorDialog1.Execute then
         RichEdit1.SelAttributes.Color := ColorDialog1.Color;
     RichEdit1.SetFocus;
end;procedure TForm1.btnfontClick(Sender: TObject);
begin     if  FontDialog1.Execute then
         RichEdit1.SelAttributes.Name  := FontDialog1.Font.Name;
     RichEdit1.SetFocus;end;end.

Answer 2

先选中一部分内容
procedure TForm1.Button1Click(Sender: TObject);
begin
    with RichEdit1.SelAttributes do
    begin
        color:=clblue;
           size:=10;
           name:='Times New Roman';
           style:=[fsItalic];
    end;
end;