Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Add properties and methods for any objects
Message
From
08/02/2002 04:42:12
Max Chen
Yx Software
Shunde, China
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Title:
Add properties and methods for any objects
Miscellaneous
Thread ID:
00617168
Message ID:
00617168
Views:
65
The following PRG works. Does it undocument ?
And will it be supported in the new version ?


*-----------------------
PUBLIC o
o=CREATEOBJECT('form1')
o.show

?o.command1.Added_Property
o.command1.Added_Method()

*---
DEFINE CLASS form1 AS form

DoCreate = .T.
Caption = "form1"
Name = "Form1"
autoCenter=.t.

ADD OBJECT command1 AS commandbutton WITH ;
Top = 10, ;
Left = 250, ;
Height = 25, ;
Width = 100, ;
Caption = "Command1", ;
Name = "Command1",;
Added_Property = 'the value of property '


PROCEDURE command1.Added_Method
? 'the method does works'
ENDPROC

ENDDEFINE
*-----------
Next
Reply
Map
View

Click here to load this message in the networking platform