TMemo最大宽度

Question

有没有办法让TMemo显示长于1024的文本显示为1行？
看看这个简单的代码：

procedure TForm1.Button2Click(Sender: TObject);
var
    s: string;
    i: integer;
begin
    s := '';
    for i := 0 to 10000 do
      s := s + 'a';

    Memo1.Clear;
    Memo1.Lines.Add(s);
end;

长文本“s”将以多行显示。 Memo1将自动包装1024个字符后的文本。

Answer 1

TMemo是本机多行编辑控件的包装器，受其限制。 来自INFO：多行编辑控件的大小限制 ：

多行编辑控件还受以下限制：

• 单行中的最大字符数为1024。
• 一条线的最大宽度为30,000像素。
• 最大行数约为16,350。