delphi - 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 是 native 多行编辑控件的包装器，并且受到其限制。来自 INFO: Size Limits for a Multiline Edit Control :

A multiline edit control is also subject to the following limitations:

• The maximum number of characters in a single line is 1024.
• The maximum width of a line is 30,000 pixels.
• The maximum number of lines is approximately 16,350.