Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Show the Properties Dialog in the TWebbrowser

Title: Show the Properties Dialog in the TWebbrowser? // 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;