TForm

// Главная форма
frm=new TForm();
frm.Caption="JS+ - визуальный компонент TForm";
frm.Width =525;
frm.Height=375;

// Строка состояния
stb=new TStatusBar(frm);

// Кнопка
btn=new TButton(frm);
btn.Caption="Popup";
btn.Left=frm.ClientWidth-btn.Width-10;
btn.Top =stb.Top-btn.Height-10;
btn.OnClick=btn_Click;

// Панель закладок
pgc=new TPageControl(frm);
pgc.SetBounds(10,10,frm.ClientWidth-20,btn.Top-20);
pgc.OnChange=pgc_Change;

for (i=0;i<2;i++) {
  // Закладка
  tsh=new TTabSheet(pgc);
  switch (i) {
    case 0: tsh.Caption="BorderIcons";
            clb=new TCheckListBox(tsh);
            clb.Align=alClient;
            clb.BorderStyle=bsSingle;
            clb.OnClickCheck=clb_ClickCheck;
            clb.Items.Add("biHelp");
            clb.Items.Add("biMaximize");
            clb.Items.Add("biMinimize");
            clb.Items.Add("biSystemMenu");
            for (j=0;j<clb.Items.Count;j++)
              if (frm.BorderIcons & eval(clb.Items[j]))
                clb.Checked[j]=true;
            break;

    case 1: tsh.Caption="BorderStyle";
            rdg=new TRadioGroup(tsh);
            rdg.Align=alClient;
            rdg.OnClick=rdg_Click;
            rdg.Items.Add("bsNone");
            rdg.Items.Add("bsSingle");
            rdg.Items.Add("bsSizeable");
            rdg.Items.Add("bsDialog");
            rdg.Items.Add("bsToolWindow");
            rdg.Items.Add("bsSizeToolWin");
            for (j=0;j<rdg.Items.Count;j++)
              if (frm.BorderStyle==eval(rdg.Items[j])) {
                rdg.ItemIndex=j;
                break;
              }
  }
}

pgc_Change(pgc);
frm.ShowModal();

// Обработчик события OnChange
function pgc_Change(pgc)
{
  var stb_Str=" Укажите свойство ";

  switch (pgc.ActivePageIndex) {
    case 0: stb_Str+="BorderIcons"; break;
    case 1: stb_Str+="BorderStyle";
  }

  stb.SimpleText=stb_Str;
}

// Обработчик события OnClick кнопки
function btn_Click(btn)
{
  var fmc,mcl,pt,x,y;

  // Полупрозрачная форма под календарь
  fmc=new TForm();
  fmc.AlphaBlendValue=150;
  fmc.AlphaBlend=true;
  fmc.Caption=" Календарь";
  fmc.KeyPreview=true;
  fmc.OnKeyPress=fmc_KeyPress;

  // Календарь
  mcl=fmc.cmpTag=new TMonthCalendar(fmc);
  mcl.OnDblClick=mcl_DblClick;

  // Подогнать размер формы под размер календаря
  fmc.Position=poDesigned;
  fmc.ClientWidth =mcl.Width;
  fmc.ClientHeight=mcl.Height;

  x=btn.Left-fmc.Width-10;
  y=btn.Top+btn.Height-fmc.Height;
  pt=frm.ClientToScreen(Point(x,y));
  fmc.Left=pt.x;
  fmc.Top =pt.y;

  stb.SimpleText=" Выберите дату ...";

  fmc.ShowModal();
}

// Обработчик события OnClick радио-группы
function rdg_Click(rdg)
{
  frm.BorderStyle=eval(rdg.Items[rdg.ItemIndex]);
}

// Обработчик события OnKeyPress
function fmc_KeyPress(fmc,Key)
{
  var d;

  switch (Key.Value) {
    case VK_ENTER : d=new Date(fmc.cmpTag.Date);
                    stb.SimpleText=
                    " Выбрана дата: "+d.toLocaleDateString();
    case VK_ESCAPE: fmc.Close();
  }
}

// Обработчик события OnDblClick
function mcl_DblClick(mcl)
{
  var d=new Date(mcl.Date);

  stb.SimpleText=" Выбрана дата: "+d.toLocaleDateString();
  mcl.Parent.Close();
}

// Обработчик события OnClickCheck
function clb_ClickCheck(clb)
{
  var i,State;

  for (i=State=0;i<clb.Items.Count;i++)
    if (clb.State[i]==cbChecked)
      State|=eval(clb.Items[i]);

  frm.BorderIcons=State;
}