最近编程论坛的很多网友反映在delphi中使用TWebBrowser控件时无法复制和粘贴,特提供解决方法如下。
在主窗体引用ActiveX单元。
uses Activex;
然后在主窗体的OnCreate事件中加入如下代码:
oleinitialize(nil);
procedure TbeginGame.FormCreate(Sender: TObject);
begin
oleinitialize(nil);
end;
最后在主窗体的OnDestory事件中加入
oleuninitialize;
procedure TbeginGame.FormDestroy(Sender: TObject);
begin
oleuninitialize;
end;