скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Показать диалог свойства 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 © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook