1Program pushme; 2 3uses xforms; 4 5var simpleform : PFL_FORM; 6{ formname,buttonname : string; 7} 8begin 9 fl_initialize(@argc, argv, 'FormDemo', nil, 0); 10 simpleform := fl_bgn_form(FL_UP_BOX,230,160); 11 fl_add_button(FL_NORMAL_BUTTON,40,50,150,60,'Pushme'); 12 fl_end_form; 13 fl_show_form(simpleform, FL_PLACE_MOUSE, FL_NOBORDER, 'Push me'); 14 fl_do_forms; 15 fl_hide_form(simpleform); 16end. 17