Отображение HTML на экранной форме
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) |
SYSDBA (обсуждение | вклад) |
||
| Строка 21: | Строка 21: | ||
По нажатию на кнопку в поле веб браузера будет отображаться фраза "Привет из Гедымина!" и загружаться изображения с сайта компании Golden Software. | По нажатию на кнопку в поле веб браузера будет отображаться фраза "Привет из Гедымина!" и загружаться изображения с сайта компании Golden Software. | ||
| + | |||
| + | ====См. также==== | ||
| + | |||
| + | * [http://docwiki.embarcadero.com/VCL/en/SHDocVw.TWebBrowser TWebBrowser] | ||
| + | * [http://docwiki.embarcadero.com/VCL/en/Controls.TButton TButton] | ||
[[Category:Документация]] | [[Category:Документация]] | ||
[[Category:Учебный курс]] | [[Category:Учебный курс]] | ||
Версия 20:55, 7 декабря 2011
Для отображения 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 = _ "<h1>Привет из Гедымина!</h1><p/><img src=""http://gsbelarus.com/gs/images/gs/2007/d6.jpg"" width=""200"" />" End Sub
По нажатию на кнопку в поле веб браузера будет отображаться фраза "Привет из Гедымина!" и загружаться изображения с сайта компании Golden Software.
