Information générale
Catégorie:
Programmation Orientée Object
Titre:
Add properties and methods for any objects
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
*-----------
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement