A Form will not release!

Tech-Archive recommends: Speed Up your PC by fixing your registry



Hi,
This is VFP6 SP5.

Using the Form Designer:
I have a Main Form which is Default except for:
BorderStyle = 2 - Fixed Dialog
ShowTips = .T.
ShowWindow = 2 - As Top-Level Form
WindowType = 1 - Modal

And a Question Form which is Default except for:
AlwaysOnTop = .T.
BorderStyle = 1 - Fixed Single
Movable = .F. - False
ShowTips = .T.
ShowWindow = 1 - In Top-Level Form
TitleBar = 0 - Off
WindowType = 1 - Modal
------------------
Height = 108
Left = 10
Top = set in QUESTION.INIT depending on various conditions.
Width = 138


Both have:
ReleaseType = 0 <<< IS THIS IMPORTANT ?

When a Command Button on the Main Form is clicked and the Question Form
is DOne it appears correctly. But, when I click the "No" or the "Yes"
button (each of their ClickEvent's contain "THISFORM.RELEASE") nothing
happens! I have to Ctrl-Alt-Delete and end VFP6!

I created the Question Form, then removed it from the Project and
created another version of the same Form (all freshly typed in, no
copy/pasting). They both worked properly when test run from the Form
Designer using Ctrl-E. But both could not be released when activated
from the Main Form.

BTW, the Form Designer will not allow the Width of the Question Form to
be less than 138 pixels. I can type in "1" or "100" or "137" and when
I press Enter, Width becomes "138" every time (it will accept larger
numbers).

I then created an Options Form which is Default except for:
AlwaysOnTop = .T.
BorderStyle = 2 - Fixed Dialog
Movable = .F. - False

ReleaseType = 1 <<< IS THIS IMPORTANT ?

ShowTips = .T.
ShowWindow = 1 - In Top-Level Form
TitleBar = 0 - Off
WindowType = 1 - Modal
------------------
Height = 287
Left = 3
Top = 0
Width = 243

And when I click it's "Close" button ( i.e. THISFORM.RELEASE) the form
disappears as expected. Does ReleaseType matter when you released a
form with "THISFORM.RELEASE"? I didn't think so.

Any thoughts?

Please, I could use some help on this.

And again, thanks very much in advance,

Jud

.


Quantcast