Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 1 марта!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Показать диалог свойства 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS