Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Binding to _Screen.ActiveForm
Message
From
24/03/2006 16:58:59
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Binding to _Screen.ActiveForm
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01107535
Message ID:
01107535
Views:
64
Hi, guys, got an interesting one here. I'm trying to adjust something everytime a different form is activated without having to put code in the form class. (Trying to do an observer kind of thing.) I figured I'd bind to changes to _SCREEN.ActiveForm, but it doesn't seem to work. Here's my test code:
ON KEY LABEL f12 clear events

o=CREATEOBJECT("TestBind")
BINDEVENT(_vfp,"ActiveForm",o,"HandleEvent")

o1=CREATEOBJECT("form")
o1.Name = "FirstForm"
o1.Caption = "First"
o1.Show()

o2=CREATEOBJECT("Form")
o2.Name = "SecondForm"
o2.Caption = "Second"
o2.show()

READ EVENTS

RETURN
 
DEFINE CLASS TestBind AS Custom

PROCEDURE HandleEvent

DEBUGOUT PROGRAM()

ENDPROC

ENDDEFINE
Any suggestions? For that matter, I'll really want to do this when using a top-level form as my background, so ideas about what I can bind to there would be helpful.

Tamar
Next
Reply
Map
View

Click here to load this message in the networking platform