1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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.
|