OnApply

// Главная форма
frm=new TForm();
frm.Caption="JS+ - событие диалога TFontDialog OnApply";
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;
pnl.Caption="Образец";

frm.ShowModal();

// Обработчик события OnClick
function btn_Click(btn)
{
  var dlg,dlg_fnt,pnl_fnt=pnl.Font;

  // Диалог
  with (dlg=new TFontDialog(frm)) {
    Title="Выбор шрифта ...";
    Device=fdScreen;
    Options=fdEffects+fdAnsiOnly+fdNoOEMFonts+fdNoVectorFonts;
    OnApply=dlg_Apply;
    OnClose=dlg_Close;
  }
  (dlg_fnt=dlg.Font).Assign(pnl_fnt);

  if (dlg.Execute()) {
    stb.SimpleText=
    " Выбран шрифт: "+dlg_fnt.Name+", "+dlg_fnt.Size;
    pnl_fnt.Assign(dlg_fnt);
  }

  dlg.Delete();
}

// Обработчик события OnApply
function dlg_Apply(dlg)
{
  pnl.Font.Assign(dlg.Font);
  alert('Нажата кнопка "Применить"');
}

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