Отображение HTML на экранной форме

Материал из GedeminWiki
Перейти к: навигация, поиск

Для отображения HTML странички следует воспользоваться компонентом TWebBrowser. Создадим чистую форму и расположем на ней два компонента:

  1. usrg_WB типа TWebBrowser
  2. 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.

Персональные инструменты
Пространства имён

Варианты
Действия
Навигация
Инструменты