Tips (1565)

Tip Rating (0):

// 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;