...Show the Properties Dialog in the TWebbrowser?

Author: Thomas Stutz

Category: Internet / LAN

// Show the "Properties Dialog"
// Den Eigenschaften Dialog anzeigen

procedure TForm1.Button1Click(Sender: TObject);
var
  eQuery: OLECMDF;
  vaIn, vaOut: OleVariant;
begin
  try
    eQuery := Webbrowser1.QueryStatusWB(OLECMDID_PROPERTIES);
    if (eQuery and OLECMDF_ENABLED) = OLECMDF_ENABLED then
      Webbrowser1.ExecWB(OLECMDID_PROPERTIES, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);
  except
  end;
end;

printed from
www.swissdelphicenter.ch
developers knowledge base