如何字体五彩？？

Question

在delphi用Tmemo组件来显示文本，怎样可以使它每行字体显示不同的颜色阿？
（能不能给个简单的代码）delphi 中还有其他的一些显示文本的组件方便的实现这个功能吗？

Answer 1

你可以直接插图啊。
在WORD里面把想变为彩色的字做成艺术字。再存成图片。
然后在DELPHI里面就可以直接插进来就行了啊。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to RichEdit1.Lines.Count - 1 do
  begin
    RichEdit1.CaretPos := Point(0, I);
    RichEdit1.SelLength := Length(RichEdit1.Lines[I]);
    RichEdit1.SelAttributes.Color := RGB(Random(256), Random(256), Random(256));
  end;
end;