这个是什么问题!高手来解释一下.

Question

我有一个dhtmlsafe,一个dhtmledit
procedure TMain.ToolButton3Click(Sender: TObject);
begin
DHTMLSafe1.DocumentHTML:= DHTMLedit1.DocumentHTML;
showmessage (DHTMLSafe1.DocumentHTML);
end;
报错.灾难性故障,而分开写
procedure TMain.ToolButton4Click(Sender: TObject);
begin
DHTMLSafe1.DocumentHTML:= DHTMLedit1.DocumentHTML;
end;procedure TMain.ToolButton5Click(Sender: TObject);
begin
showmessage (DHTMLSafe1.DocumentHTML);
end;
这样就不报错.为什么呢.怎么解决.高分送了.快来帮我.

Answer 1

如果busy的问题,请问怎么解决

Answer 2

我没有那样的控件，一般来说
进行那样的操作要耗费一定的
时间，所以你写在一起就不行了
会引起那样的冲突
改为..
procedure TMain.ToolButton3Click(Sender: TObject);
begin
DHTMLSafe1.DocumentHTML:= DHTMLedit1.DocumentHTML;
application.processmessages;
showmessage (DHTMLSafe1.DocumentHTML);
end;
//一般就好了
//或者不用appli...
//用sleep(n); n单位为百万分之1秒

Answer 3

我看dhtmlsafe1的源码了.这个问题也可以说是delphi的.一个按钮里的写和读要提交两次就不会报错的.怎么让一个按钮里的事件提交两次.