的确,用richedit。祝:身体健康!

解决方案 »

  1.   

    可是,当我选择一段时整个richedit中的内容都变了
      

  2.   

    用richedit的RichEdit1.SelAttributes属性
      

  3.   

    //一个例子
    procedure TForm1.Button1Click(Sender: TObject);begin
      with RichEdit1.SelAttributes do
      begin
        Color := clRed;
        Height := Height + 5;
      end;
      RichEdit1.Lines.Add('This line of text will be red.');
    end;