|
...Show the Properties Dialog in the TWebbrowser?
|
| Autor:
Thomas Stutz |
| [ Print tip
] | | |
// 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;
|
