Xailer & OZ Software

Hola,
Necesito en el StatusBar que uno de los paneles contenga un Tlabel y otro un
ProgressBar, en el FormInitialize llamo a Crear un Tlabel y como oParent le
pongo el Tstatuspanel , en mi caso, oStatusBar:aItems[1], pero me casca la
aplicación en el Create() del Tlabel al ejecutar el metodo GETFORM.
//-----------------
WITH OBJECT ::oLabelTTS := TLabel():New( ::oStatusBar:aItems[1] )
:cText := "Prueba"
:Create()
END
//-----------------
¿Tenéis un ejemplo de implementar una statusbar con todos sus "habíos"?
Un Saludo,
Joaquín

Joaquín,
añade los controles desde el IDE, colocándolos sobre la statusbar. Después,
en el FormInitialize pon:
WITH OBJECT ::oStatusBar1
:aItems[1]:oControl := ::oLabel1
:aItems[2]:oControl := ::oProgressBar1
...
END
Nota: la propiedad oControl de los paneles se debería poder asignar
directamente desde el IDE, pero me temo que no está funcionando. Lo
corregiremos lo antes posible.
--
Un saludo,
José F. Giménez