Listbox in Listbox

[Muecke]

Hallo,

Ist es eigentlich möglich, mehrere Listboxen in eine Listbox zu programmieren?

Code: Alles auswählen

   ...........
   ::oDra := ::XbpDialog

   ::oLb1   := XbpListBox():new( ::oDra, , {28,28}, {928,512}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   ::oLb1 :tabStop := .T.


   ::oLb2    := XbpListBox():new( ::oDra , , {72,520}, {860,20}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   ::oLb2:vertScroll := .F.
   ::oLb2:tabStop := .T.

   ::oLb3   := XbpListBox():new( ::oDra ,  , {72,500}, {860,20}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   ::oLb3:vertScroll := .F.
   ::oLb3:tabStop := .T.

   ::oLb4  := XbpListBox():new( ::oDra ,  , {28,500}, {44,40}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   ::oLb4:vertScroll := .F.
   ::oLb4:tabStop := .T.

Ich sehe zwar die Listboxen(2,3,4) am Anfang, aber verschwinden sobald ich auf ::oLb1 klicke!!
Danach hab ich nur noch den Dialog + die Listbox (::oLb1).

Gruss Thomas