Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Message by clicking any field
Message
De
13/08/2009 04:03:55
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01416880
Message ID:
01417800
Vues:
45
>>>I would like to display a messagebox as the user clicks any field or any place of my form
>>>
>>>Is it possible without have to write the code in each field ?
>>>
>>>= messagebox ("This form is readonly, click edit to unlock it")
>>>
>>>Moises
>>
>>
>>for each oControl in thisform.Controls
>>   if upper(oControl.BaseClass) = 'TEXTBOX'
>>      =bindevent(eval('Thisform.'+oControl.Name) ,"Click",ThisForm,"myClick")
>>   endif
>>endfor
>>
>
>Zahid,
>
>In this code, why do you need evaluate part, why not
>
>bindevent(oControl, 'Click', thisform, 'myClick') ?

Naomi
Yes you are right. That should be done without Evaluate()
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform