>local f1 >f1 = createobject('frm') >f1.show >read events > >* ---------- >define class frm as Form > > AutoCenter = .t. > ShowWindow = 2 > Toolbar = '' > > procedure Init > ThisForm.Visible = .t. > ThisForm.Toolbar = createobject('tbr') > ThisForm.Toolbar.Dock(0) > ThisForm.Toolbar.Show > endproc > > procedure Release > ThisForm.Toolbar = .NULL. > endproc > > procedure Unload > clear events > endproc > >enddefine > >* ---------- >define class tbr as Toolbar > > ShowWindow = 1 > > add object btn as CommandButton; > with Width=100, Height=25, Caption="Close window" > > procedure btn.Click > _SCREEN.ActiveForm.Release() > endproc > >enddefine >>
local f1 f1 = createobject('frm') f1.show read events * ---------- define class frm as Form AutoCenter = .t. ShowWindow = 2 Toolbar = '' procedure Init ThisForm.Visible = .t. ThisForm.Toolbar = createobject('tbr') ThisForm.Toolbar.Dock(0) ThisForm.Toolbar.Show endproc procedure Unload clear events endproc enddefine * ---------- define class tbr as Toolbar ShowWindow = 1 add object btn as CommandButton; with Width=100, Height=25, Caption="Close window" procedure btn.Click DECLARE SHORT PostMessage IN WIN32API INTEGER,INTEGER,INTEGER,INTEGER =PostMessage(_SCREEN.ActiveForm.HWnd,16,0,0) CLEAR DLLS PostMessage endproc enddefine