fpc/packages/xforms/examples/yesno.pp

Program yesno;
{
  A box with two buttons and a string. Simple boxes like this
   are very useful for asking questions
}

Uses xforms;

var
    form   : PFL_FORM;
    yes,no : PFL_OBJECT;

begin
  fl_initialize(@argc, argv, 'FormDemo', nil, 0);
  form := fl_bgn_form(FL_UP_BOX,320,120);
    fl_add_box(FL_NO_BOX,160,40,0,0,'Do you want to quit ?');
    yes := fl_add_button(FL_NORMAL_BUTTON,40,70,80,30,'Yes');
    no  := fl_add_button(FL_NORMAL_BUTTON,200,70,80,30,'No');
  fl_end_form;
  fl_show_form(form,FL_PLACE_MOUSE,FL_TRANSIENT,'Question : ');
  while (fl_do_forms <> yes) do;
  fl_hide_form(form);
end.