Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Bindevent to a property
Message
 
 
À
08/04/2013 20:32:23
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Network:
Windows 2003 Server
Database:
MS SQL Server
Divers
Thread ID:
01570434
Message ID:
01570447
Vues:
45
>>Thanks, I have it working already, but thanks for this interesting message reference.
>
>
>I misunderstood. As a workaround, from the BindEvent() you can test the property and then simply call your InfoChanged method manually. Or, you can add a separate BindEvent() which is designed to only signal InfoChanged.

This is what I have right now:

Form Init
if upper(loPage.name) = upper('pagSeriesShows')
			bindevent(loPage.mvrShows, "Updated", thisform, "InfoChanged", 1)
		else
InfoChanged:
DO case
  case 'mvr' $ LOWER(PROGRAM(PROGRAM(-1)-1)) 
     IF thisform.pageframe1.pagSeriesShows.mvrShows.Updated 
     	ASSERT .f. MESSAGE 'InfoChanged called from ' + PROGRAM(PROGRAM(-1)-1)
        STORE .T. TO thisform.lChangesMade
     ENDIF
otherwise        
	STORE .T. TO thisform.lChangesMade
endcase	
thisform.RefreshButtons()
However, something is still not yet quite correct because after I saved the changes, I am still prompted with the question about changes made. I am going to look closer at the code.
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform