try:
procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered:=True;
end;
or:
procedure TForm1.memo1Change(Sender: TObject);
begin
sendmessage(memo1.Handle,WM_KILLFOCUS,0,0);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered:=True;
end;
or:
procedure TForm1.memo1Change(Sender: TObject);
begin
sendmessage(memo1.Handle,WM_KILLFOCUS,0,0);
end;
如果是的话,把Memo.DoubleBuffered设置为True;
如果不是建议在写字符前先把Memo.Visible设置为flase,等全部字符都写进去后在把它设置为True,否则速度会很慢.