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

Question

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

Answer 1

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

OnDocumentComplete
OnNavigateComplete2
OnBeforeNavigate2
OnCommandStateChange
OnProgressChange

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

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

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

Answer 2

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