在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;