pushme.pp 388 B

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