// Show the "Properties Dialog" // Den Eigenschaften Dialog anzeigen procedureTForm1.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
;