WebBrowser的Copy、Delete、Cut

下面的代码检测Copy命令是否可以使用： procedure TForm1.ButtonIsCopyEnabledClick(Sender: TObject);
begin
if Webbrowser1.OleObject.Document.queryCommandEnabled('Copy') then
ShowMessage('Copy is active/ Copy ist aktiv');
end;