OnClose

// Главная форма
frm=new TForm();
frm.Caption="JS+ - стандартное событие диалога OnClose";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажмите кнопку "Цвет"';

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

// Панель
pnl=new TPanel(frm);
pnl.BorderStyle=bsSingle;
pnl.SetBounds(10,10,frm.ClientWidth-20,btn.Top-20);
pnl.Color=clWhite;

frm.ShowModal();

// Обработчик события OnClick
function btn_Click(btn)
{
  var dlg;

  // Диалог
  with (dlg=new TColorDialog(frm)) {
    Title="Выбор цвета ...";
    Color=pnl.Color;
    CustomColors.Add("ColorA=0000F0");// Красный
    CustomColors.Add("ColorB=00F000");// Зеленый
    CustomColors.Add("ColorC=F00000");// Синий
    OnShow =dlg_Show;
    OnClose=dlg_Close;
  }

  if (dlg.Execute())
    stb.SimpleText=" Выбран цвет: "+(pnl.Color=dlg.Color).toHColor();

  dlg.Delete();
}

// Обработчик события OnShow
function dlg_Show(dlg)
{
  stb.SimpleText=' Диалог "'+dlg.Title+'" показан';
}

// Обработчик события OnClose
function dlg_Close(dlg)
{
  stb.SimpleText=' Диалог "'+dlg.Title+'" закрыт';
}