Показать диалог свойства TWebBrowser

Советы » Браузер » Показать диалог свойства 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com