Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
*Browse Window* and activate control
Message
De
03/02/2009 07:58:05
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Programmation Orientée Object
Titre:
*Browse Window* and activate control
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01378947
Message ID:
01378947
Vues:
65
Hi...

Here is the issue.. If I have more than 1 browser.. I'd like to run some code when every browse window is clicked/activate:

ps: I already try when clause by "when _screen.form1.runsomemethod()" but it goes to a weird behavior and the application crash
lnwidth				= SYSMETRIC(1)-thisform.Width-30
lnheight				= SYSMETRIC(2)-260
lcname				= SYS(2015)
DEFINE WINDOW (lcname) ;
	AT 0.769, 0.200 ;
	SIZE lnheight,lnwidth ;
	FONT "MS Sans Serif", 8 ;
	STYLE "N" 	FLOAT ZOOM CLOSE GROW MINIMIZE DOUBLE 

ACTIVATE WINDOW (lcname) top

Browse Window (loobj.Name) NAME loobj NOWAIT;
	TITLE "Browse data of " + ThisForm.List1.value 

*loobj				= EVALUATE("_SCREEN."+lcname)

BINDEVENT(loobj,"Activate",thisform,"runsomemethod")
How should I run a code when end-user activate each browse window? I didn't use an object form/grid because I'd like to allow the use of CTRL+F find
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform