Оконные сообщения Windows

// Главная форма
frm=new TForm();
frm.Caption="JS+ - Оконные сообщения Windows";
frm.Width =600;
frm.Height=450;
frm.WindowProc=frm_WndProc;

// Кнопка
btn=new TButton(frm);
btn.Caption="Добавить Help";
btn.Width=btn.TextWidth(btn.Caption)+20;
btn.Left=(frm.ClientWidth -btn.Width )/2;
btn.Top =(frm.ClientHeight-btn.Height)/2;
btn.OnClick=btn_Click;

frm.ShowModal();

// Обработчик события OnClick кнопки
function btn_Click(btn)
{
  var Btn_Str,New_Style;
  var Old_Style=GetWindowLong(frm.Handle,GWL_EXSTYLE);

  switch (btn.numTag) {
    case 0: New_Style=Old_Style | WS_EX_CONTEXTHELP;
            Btn_Str="Убрать Help";
            break;

    case 1: New_Style=Old_Style & ~WS_EX_CONTEXTHELP;
            Btn_Str="Добавить Help";
  }

  SetWindowLong(frm.Handle,GWL_EXSTYLE,New_Style);
  btn.Caption=Btn_Str;
  btn.numTag=1-btn.numTag;
}

// Оконная процедура главной формы
function frm_WndProc(Sender,Msg,wParam,lParam)
{
  var hWnd=Sender.Handle;

  switch (Msg) {
    case WM_STYLECHANGED:
    alert("Изменился стиль окна главной формы");
    break;

    case WM_CLOSE:
    alert("Окно главной формы закрывается!");
    break;

    case WM_DESTROY:
    SetWindowLong(hWnd,GWL_WNDPROC,Sender.OldWndProc);
  }

  return CallWindowProc(Sender.OldWndProc,hWnd,Msg,wParam,lParam);
}