Delphi Xe2 VCL style и веб-браузер - PullRequest
Новая
       94

Delphi Xe2 VCL style и веб-браузер

3 голосов
/ 27 ноября 2011

Win7 x64, Delphi Xe2 update2

Подсказка:

  1. Новый проект, скомпилированный как x32, применяет визуальные (vcl) стили в опциях проекта, по умолчанию одинselected
  2. На форме кнопка1 и WebBrowser1
  3. В кнопке пишем WebBrowser1.Navigate ('http://google.com');
  4. Запускаем, нажимаем кнопку - в браузереВидим сайт google.com, все ок

Компилируем как x64, запускаем ок, нажатием кнопки получаем ошибку «деление на ноль».

Вопросы:

  1. У всех так (ошибка)? И как с этим бороться? (В режиме x64)
  2. Как применить визуальный стиль к полосам прокрутки WebBrowser1? (В режиме x32)) :( родной компонент не может создать скин, но система AlphaControls Skin - работает нормально, а строки прокрутки веб-браузера очищены от обычного

ps update3, пока не поставили

pss bad english: on

Ответы [ 2 ]

6 голосов
/ 20 марта 2012

Это можно сделать, создав подклассификацию компонента TWebBrowser и обработав эти события 

OnDocumentComplete
OnNavigateComplete2
OnBeforeNavigate2
OnCommandStateChange
OnProgressChange

плюс сообщение WM_SIZE windows.

Ключом является использование компонента TScrollbar и Twincontrol в качестве контейнера для перекрытия оригинальных полос прокрутки веб-браузера.

Я только что написал статью, в которой подробно объясняется, как это можно реализовать Delphi Vcl Styles and TWebBrowser

0 голосов
/ 28 ноября 2011

VCL стили не могут быть применены к TWebBrowser AFAIK. Его пользовательский интерфейс контролируется Internet Explorer, а не VCL.

...