TWebbrowser & Copy Enabled

[toms]

Hi,

Moechte ein Copy Menu Item je nachdem enablen, ob im Webbrowser etwas
selektiert ist oder nicht.

Leider ist bei diesem Code das MenuItem immer enabled = False.
Was mache ich falsch?

Delphi-Quellcode:

var
  Flags: OLECMDF;
begin
  Flags := Webbrowser1.QueryStatusWB(OLECMDID_COPY);
  MenuItemCopy.Enabled:= (Flags and OLECMDF_SUPPORTED) = OLECMDF_SUPPORTED;
end;

Delphi-Quellcode:

initialization
  OleInitialize(nil)

finalization
  OleunInitialize

[Sprint]

In wievielen Foren postest du eigentlich deine Beiträge?

Delphi-Quellcode:

var
  Flags: OLECMDF;
begin

  Flags := WebBrowser1.QueryStatusWB(OLECMDID_COPY); Self.Caption := IntToStr(Flags);
  MenuItemCopy.Enabled := (Flags or OLECMDF_SUPPORTED or OLECMDF_ENABLED) = Flags;

end;

[toms]

Danke, das funktioniert so. Nur im TEmbeddedWB nicht, wo ich's urspruenglich ausprobiert hatte...

[Sprint]

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

[toms]

Danke, werde das mal ausprobieren.
Ich frage mich aber, warum das erstere nicht funktioniert, da es ja auch auf das QueryStatusWB vom TWebbrowser zurückgreift.

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