This would end a whole application, but I want to close only one window...

>Put CLEAR EVENTS in the Click and release the form after READ EVENTS
>
>>Hi,
>>
>>Still can't release form using button on toolbar. Try to create a form with toolbar with a button. In the button's click event release the form.
>>After click the form is still on screen and no way to close it.
>>
>>Here is the sample code:
>>
>>

>>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
>>

>>
>>This bug force me to include a timer on the form and release the form from timer event. Toolbar's button only starts the timer.
>>
>>Best,
>>
>>Janusz Czudek
>>WORD Software
>>http://www.wordsoft.com.pl