procedure TForm1.FormCreate(Sender: TObject);
begin
  RichEdit1.Clear;      //  RichEdit1.Lines.Font 不能用      RichEdit1.Font.Size:=10;
  RichEdit1.Font.Name:='細明體';
  RichEdit1.Lines.Add('細明體');      RichEdit1.Font.Size:=20;
  RichEdit1.Font.Name:='標楷體';
  RichEdit1.Lines.Add('標楷體');
  // 結果大小都是 20, 字體都是 標楷體
  // 該如何讓不同行顯示不同字體和大小 ?
  // 甚至讓同行不同字顯示不同字體和大小 ?    end;

********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

您好: 要任意改變某行,某些字的方式需要操作SelLength,SelAttributes,SelStart. 看一下TRichEdit中的help,重點在TTextAttributes. 或參考下面這篇 http://delphi.ktop.com.tw/topic.php?topic_id=67011 發表人 - supman 於 2005/05/19 15:58:31