Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Bindevent to a property
Message
 
 
To
08/04/2013 20:32:23
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Network:
Windows 2003 Server
Database:
MS SQL Server
Miscellaneous
Thread ID:
01570434
Message ID:
01570447
Views:
47
>>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
Previous
Reply
Map
View

Click here to load this message in the networking platform