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