delphi 当向memo写数据时，按钮不能操作，怎样解决，谢谢

Question

delphi   当向memo写数据时，按钮不能操作，怎样解决，谢谢 

Answer 1

问题是当正向memo写数据时，按钮已经不能操作，现在想要按钮可以操作，怎样解决，求教谢谢，

Answer 2

for i:=0 to 10000 do begin
  Memo1.Lines.add(IntToStr(i));
  if (i mod 16) = 0 then Application.ProcessMessage;
end;
循环中提交一下消息处理就行了.

Answer 3

直接application.programmessages；
让窗体事件得到响应。

Answer 4

1 application.programmessages；
2 使用多线程

Answer 5

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Button1.Enabled:=False;  //在memo1 events 里press事件设置输入数据时间， 按钮灰色
button3.visible:=true;  //memo1有改动 显示出保存的按钮
end;