Information générale
Titre:
Using a builder to add controls to a class
All,
I use a builder to create composite classes.
The code is as follows:
FUNCTION SubClass
LPARAMETER tcBaseClass,tcBaseClassLibrary,tcNewClass,tcNewClassLibrary
CREATE CLASS ;
(tcNewClass) ;
OF ;
(tcNewClassLibrary) ;
AS ;
(tcBaseClass) ;
FROM ;
(tcBaseClassLibrary) ;
NOWAIT
loObject = .NULL.
FOR EACH loForm IN _SCREEN.FORMS
IF UPPER(loForm.CAPTION) # UPPER(tcNewClass)
LOOP
ENDIF
loObject = loForm.CONTROLS[1]
EXIT
ENDFOR
RETURN loObject
I use the loObject reference to change properties and then use
ACTIVATE WINDOW "Class Designer"
KEYBOARD "{Ctrl+W}"
to close the class designer.
If I create one object, all is well. If I create two objects, neigher Class Designers close.
Is there another way to create an object and store it in a VCX file?
Is there another way to reference the created object?
Is there another way to save the class and close the Class Designer?
TIA
Rex
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