Class :init / :create

Beitrag von **AUGE_OHR** » Mo, 21. Apr 2008 17:20

hi,

wann braucht man bei einer Class ein :init und wann "nur" ein :create ?

wenn ich nun in der :init z.b. einen XbpPushbutton habe, wieso kann ich
den dann nicht von dem :create neu belegen sondern erst danach ?

... er meinst sonst er "kenne" das ":YALIAS" nicht ...

Code: Alles auswählen

CLASS GUIDummy FROM XbpDialog
      VAR YALIAS

METHOD GUIDummy:init( oParent, oOwner, aPos, aSize ...

   ::YALIAS   := ALIAS()
...
   ::oPB01  := XbpPushButton():new( ::oStatmenu, , ...
   ::oPB01:caption := "Neu"
   ::oPB01:tabStop := .T.
   ::oPB01:activate    := {|| NOYET() }

PROCEDURE TABWAHL1( ....
...
   oArtikel := GUIDummy():new( oTab ,,;
               {0,0},;
               {oTab:currentsize()[1],oTab:cur ...
               aPres,;
               .T. )

   oArtikel:title    := "Artikel Menu"
   oArtikel:close    := {|| lExit := .T. }
   oArtikel:YALIAS   := ALIAS()        //SELECT()
   oArtikel:aField   := aDBF
   oArtikel:oGUIMenu := oSubMenu
// darf :oPBxx nicht VOR :create
   oArtikel:create()

// muss nach :create passieren
   oArtikel:oPB02:caption := "~Edit"
   oArtikel:oPB02:activate := {|| ArtThread("EDIT",(oArtikel:YALIAS)->(RECNO()),oTab) }
   oArtikel:oPB02:configure()