高手（xuxiaohan）进来，小弟有事情找。 ( 积分: 100 )

用OleContainer打开一个Word 文档，OK，一切正常。
这时候，客户往往想打开一个已经存在的Word文档进行Copy
问题就出现了。
我们再用Word打开一个已经有的Word文档，然后回来到我们的程序，
不能进行编辑了

你给出了答案

if Active then postmessage(handle,cm_enter,0,0)
...

procedure Tform1.cmEnter(var msg: Tmessage);
begin
application.processmessage;
try
lockWindowsupdate(handle)
oc.doverb(vbShow)
finally
lockWindowUpdate(0)
end;
end;

可是不小弟编译通不过，是不是应该把Tform1.cmEnter放在type里先定义一下
if Active then postmessage(handle,cm_enter,0,0)
...
这个应该放在哪个块里？怎么用？

用OleContainer打开一个Word 文档，OK，一切正常。
这时候，客户往往想打开一个已经存在的Word文档进行Copy
问题就出现了。
我们再用Word打开一个已经有的Word文档，然后回来到我们的程序，
不能进行编辑了

你给出了答案

if Active then postmessage(handle,cm_enter,0,0)
...

procedure Tform1.cmEnter(var msg: Tmessage);
begin
application.processmessage;
try
lockWindowsupdate(handle)
oc.doverb(vbShow)
finally
lockWindowUpdate(0)
end;
end;

可是不小弟编译通不过，是不是应该把Tform1.cmEnter放在type里先定义一下
if Active then postmessage(handle,cm_enter,0,0)
...
这个应该放在哪个块里？怎么用？