5,928
社区成员
发帖
与我相关
我的任务
分享关于TRichEdit的字数限制？
Delphi5提供的TRichEdit，有字数的限制，输入太多就没有办法继续输入了。请问大侠们有解决的办法没有？Rx系列的RichEdit没有限制，但是不想使用第三方组件。
...全文
请发表友善的回复…
发表回复
song317 2004-07-12
- 打赏
- 举报
aiirii(ari-爱的眼睛) 谢谢谢谢。。。
xiaolei_418 2004-07-12
- 打赏
- 举报
同意楼上
aiirii 2004-07-10
- 打赏
- 举报
{
By default, a TRichedit's text is limited to 64 KB.
Setting the Maxlength property to $7FFFFFF0 allows you to have approx.
2GB of text.
Standardmässig ist der Text im Richedit auf 64 KB beschränkt.
Indem man die Maxlength auf $7FFFFFF0 setzt, kann man ungefähr 2 GB
Text im TRichEdit haben.
}
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit11.MaxLength := $7FFFFFF0;
end;
//oder:
//or:
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(RichEdit1.Handle, EM_EXLIMITTEXT, 0, $7FFFFFF0);
end;
By default, a TRichedit's text is limited to 64 KB.
Setting the Maxlength property to $7FFFFFF0 allows you to have approx.
2GB of text.
Standardmässig ist der Text im Richedit auf 64 KB beschränkt.
Indem man die Maxlength auf $7FFFFFF0 setzt, kann man ungefähr 2 GB
Text im TRichEdit haben.
}
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit11.MaxLength := $7FFFFFF0;
end;
//oder:
//or:
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(RichEdit1.Handle, EM_EXLIMITTEXT, 0, $7FFFFFF0);
end;
