Probleme mit initClass und init
Verfasst: Fr, 24. Jul 2015 16:13
Ich habe hier TextControl im Einsatz. Jetzt möchte ich das ganze in eine Klasse fassen.
Mein Problem ist, dass es sich sang und klanglos aufhängt, wenn in initClass das create() ausgeführt wird. In der Methode init funktioniert es.
Wo habe ich den Gedankenfehler?
Mein Problem ist, dass es sich sang und klanglos aufhängt, wenn in initClass das create() ausgeführt wird. In der Methode init funktioniert es.
Wo habe ich den Gedankenfehler?
Code: Alles auswählen
class Rtf
class method initClass
class var cv_oTXText
method init
exported:
class method test
endclass
class method Rtf:initClass()
alert( "initClass" )
::cv_oTXText := XbpActiveXControl():new()
::cv_oTXText:CLSID := "TIS.TX.Textcontrol.22"
::cv_oTXText:Create()
alert( "initClass fertig" )
return self
class method Rtf:test()
return ( valtype( ::cv_oTXText ) == "O" )
method Rtf:init()
alert( "init" )
::cv_oTXText := XbpActiveXControl():new()
::cv_oTXText:CLSID := "TIS.TX.Textcontrol.22"
::cv_oTXText:Create()
alert( "init fertig" )
return self