Отображение HTML на экранной форме
Материал из GedeminWiki
Версия от 20:50, 7 декабря 2011; SYSDBA (обсуждение | вклад)
Для отображения HTML странички следует воспользоваться компонентом TWebBrowser. Создадим чистую форму и расположем на ней два компонента:
- usrg_WB типа TWebBrowser
- usrg_Btn типа TButton
Напишем обработчик события OnClick для кнопки usrg_Btn:
Option Explicit Sub usrg_BtnOnClick(ByVal Sender) Dim WB, Doc Set WB = Sender.OwnerForm.GetComponent("usrg_WB") Set Doc = WB.Document Doc.Body.InnerHTML = _ End Sub
По нажатию на кнопку в поле веб браузера будет отображаться фраза "Привет из Гедымина!" и загружаться изображения с сайта компании Golden Software.