Rex,
You can use bindevent()
commandbutton init()
if type("thisform.ldisablebuttons") = "L"
bindevent(thisform,"ldisablebuttons",this,runeventcode,1)
endif
procedure runeventcode()
this.enabled = not thisform.ldisablebuttons
endproc
then all you have to do is set ldisablebuttons = .t. when calling the form and then .f. when called form is closed.
>Hello All,
>
>Is there a straight forward way of showing all objects (mainly the buttons) on a parent (modal) form disabled whilst another (modal) form is called (DO FORM ...) so that after the called form is released, the calling form can be restored to the state it was before the call.
>
>The main problem I have is if the called form is smaller in size then the user can see the underlying form (which is disabled) BUT the buttons appear to be enabled.
>
>The requirement is for the users to know the buttons on the underlying form are not available to click.
>
>Regards...Rex