...im TWebbrowser den Eigenschaften Dialog anzeigen?

Autor: Thomas Stutz

Kategorie: 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