最近編程論壇的很多網(wǎng)友反映在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;