Hi Borislav,
I tried tab to go over my controls and I got the following error message:
"ActiveControl is not an object!". it occurs at this line:
IF VARTYPE(thisform.ActiveControl.Name) == "C"
of the When event of the buttons.
Any idea?
Ali
>Add a property in the form named oControl
>In When event of the button(s)
>
>IF VARTYPE(thisform.ActiveControl.Name) == "C"
> thisform.oControl = thisform.ActiveControl
>ENDIF
>
>** In Click Event of the button (or method invoked by it)
>thisform.LockScreen = .t.
>IF VARTYPE(thisform.oControl) == "O"
> thisform.oControl.SetFocus()
>ENDIF
>thisform.LockScreen = .f.
>