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