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

Для отображения 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 = _
    "<h1>Привет из Гедымина!</h1><p/><img src=""http://gsbelarus.com/gs/images/gs/2007/d6.jpg"" width=""200"" />"
 
End Sub

По нажатию на кнопку в поле веб браузера будет отображаться фраза "Привет из Гедымина!" и загружаться изображения с сайта компании Golden Software.

См. также

• TWebBrowser
• TButton