EnableObjects and SetFocus
P.G.M. van Mierlo
I'm looking for a procedure called EnabledObject and SetFocus for VDB 7
wich was also available
for VDB 5.5 which I used a lot. I thought it was created by some of the
Team-B members....but
i'm not sure...
This is the code for Vdb5 for EnableObject and SetFocus....so i someone
remembers something, let me know:
Procedure EnableObjects(lEnabled)
*--------------------------------
if form.DataControlsAreEnabled = lEnabled
RETURN
else
form.DataControlsAreEnabled = lEnabled
endif
local oControl
oControl = form.first
do
if oControl.Classname $
"ENTRYFIELD|EDITOR|RADIOBUTTON|SPINBOX|CHECKBOX|BROWS|COMBOBOX|LISTBOX"
oControl.Enabled = lEnabled
endif
oControl = oControl.Before
until oControl.Name ==form.first.name
Procedure FirstFocus
*-------------------
private oControl
oControl = form.first
do
if type("oControl.SetFocus") == "FB" .or.
type("oControl.SetFocus") == "CB" .and. oControl.PageNo = Form.PageNo
oControl.SetFocus()
RETURN
endif
oControl = oControl.Before
until oControl.Name == form.first.name
----------------------------------------
Greetings Peter
Ken Mayer [dBVIPS]
>I'm looking for a procedure called EnabledObject and SetFocus for VDB 7
>wich was also available
>for VDB 5.5 which I used a lot. I thought it was created by some of the
>Team-B members....but
>i'm not sure...
SetFocus is a method of controls on a form. EnableObject isn't really
necessary with VdB7, but if you want it, check the dUFLP library at my
website.
Ken
---
Ken Mayer [dBVIPS]
GO HERE! NOW!
These newsgroups are going away fast!