TWebbrowser & Copy Enabled

[toms]

Zitat von Sprint:

MenuItemCopy.Enabled :=(EmbeddedWB1.Document as IHTMLDocument2).queryCommandEnabled('Copy');

Hat funktioniert!

Hab's jetzt so geloest:

Delphi-Quellcode:

function WB_QueryCommandEnabled(WB: TWebbrowser; const Command: string): Boolean;
var
  Doc: IHTMLDocument2;
begin
  Result := False;
  Doc := WB.Document as IHTMLDocument2;
  if doc <> nil then
    Result := Doc.QueryCommandEnabled(Command);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MenuItemCopy.Enabled := WB_QueryCommandEnabled(EmbeddedWB1, 'Copy');
  MenuItemPaste.Enabled := WB_QueryCommandEnabled(EmbeddedWB1, 'Paste');
  MenuItemCut.Enabled := WB_QueryCommandEnabled(EmbeddedWB1, 'Cut');
nd;