12345678910111213141516 |
- Program pushme;
- uses xforms;
- var simpleform : PFL_FORM;
- { formname,buttonname : string;
- }
- begin
- fl_initialize(@argc, argv, 'FormDemo', nil, 0);
- simpleform := fl_bgn_form(FL_UP_BOX,230,160);
- fl_add_button(FL_NORMAL_BUTTON,40,50,150,60,'Pushme');
- fl_end_form;
- fl_show_form(simpleform, FL_PLACE_MOUSE, FL_NOBORDER, 'Push me');
- fl_do_forms;
- fl_hide_form(simpleform);
- end.
|