Tabs en Windows Principal

[Mike Serra]

Buenos días foro:

Quiero hacer lo siguiente, poner un tab por encima de la statusbar, de manera, que cuando me meta en cualquier opción del programa aumente una pestaña del Tab.

De manera que si tengo varias pestañas (Clientes, Proveedores, Articulos), con pulsar la pestaña correspondiente se active dicha ventana.

Prácticamente sería algo parecido al control outlook, pero con tabs y en la parte de abajo de la ventana principal.

El problema es que haciendo pruebas, pinto un tabs con 2 pestañas, pero no me reacciona nada, es decir, es como si estuviese pintado y ya está.

el código es el siguiente:


define brush oBrush style borland


aides:={"Prueba1","Prueba2"}
define window oWndPrincipal title "Principal" brush oBrush mdi menu BuildMenu()
define message oMsgBar of oWndPrincipal prompt "Utilidades" keyboard date time
@ 1, 1 TABS oTabs PROMPTS "" OF oWndPrincipal PIXEL SIZE 255,18 ACTION msginfo("Hola")
oTabs:SetTabs(aIdes)
activate window oWndPrincipal maximized valid lSalir on init PonTab(oTabs,oWndPrincipal)
oBrush:end()


static function PonTab(oTabs,oWndPrincipal)
oTabs:nTop := oWndPrincipal:nHeight - 200 //- Tambrow
return