在窗体的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;
就可以使TWebbrowser支持复制粘贴了。