var HTML_Buf=
"<HTML>"+
"<META HTTP-EQUIV='Content-type' CONTENT='text/html;charset=windows-1251'>"+
"<STYLE TYPE='text/css'>"+
".STD_FONT {font-family:Arial;font-size:10pt}"+
".STD_BTN {padding:7px 10px 7px 10px;border:1px silver outset;background:silver;cursor:pointer}"+
"</STYLE>"+
"<BODY STYLE='overflow:auto;border:1px silver solid'>"+
"<TABLE CLASS=STD_FONT WIDTH=100% HEIGHT=100% CELLPADDING=0 CELLSPACING=0>"+
"<TR><TD ALIGN=CENTER VALIGN=MIDDLE>"+
"[CONTENT]"+
"</TABLE>"+
"</BODY>"+
"</HTML>";
// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TWebBrowser SetHTML";
frm.Width =600;
frm.Height=450;
// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Нажмите на Кнопку";
// Web-браузер
web=new TWebBrowser(frm);
web.SetBounds(20,20,frm.ClientWidth-40,stb.Top-40);
HTML_Str=
HTML_Buf.replace("[CONTENT]",
"Это <i>страница</i> <b>HTML</b><P>"+
"<BUTTON ID=TST_BTN CLASS=STD_BTN STYLE='font-size:90%' onClick='btn_Click(this.id);'"+
" TITLE='Это HTML-кнопка'>Кнопка"+
"</BUTTON>"+
"<SCRIPT TYPE='text/javascript'>"+
"function btn_Click(id_Str) {"+
"document.title='Нажата кнопка '+id_Str;"+
"}"+
"</SCRIPT>");
web.
SetHTML(HTML_Str);
web.OnTitleChange=web_TitleChange;
frm.ShowModal();
function web_TitleChange(web,ttl_Str)
{
alert(ttl_Str);
}
