用WEBBROWSER怎么复制粘贴不能用了

 

在webbrowser中显示的网页，选中其中文字进行复制好像不起作用，不管是用鼠标右键还是直接CTRL-C，都没有复制到剪切板去，无法粘贴出来。

在窗体的OnCreate事件中加入如下代码：
OleInitialize(nil);

在OnClose事件中加入代码：
OleUninitialize;

procedure TForm1.FormCreate(Sender: TObject);
begin
OleInitialize(nil);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
OleUninitialize;
end;

 

或者

uses Activex;

代码未尾添加:

initialization
oleinitialize(nil);
finalization
oleuninitialize;