FMsgDoc2.execCommand('copy',false,0);
或者
self.WebBrowserMsg.ExecWB(OLECMDID_COPY,OLECMDEXECOPT_DODEFAULT, EmptyParam,EmptyParam)
但仅仅是加上这些命令,并不能生效,结果也不能将选中的文字复制了剪贴板上,要解决此问题,必须在uses里引用:ActiveX,并且加上如下代码(最好放在unit的end之前):
initialization
OleInitialize(nil);
finalization
try
OleUninitialize;
except
end;
OleInitialize(nil);
finalization
try
OleUninitialize;
except
end;