XProfan

Windowstyle 26
Ventana 100,200-180,105
Mensajes del usuario 16
var tabctrl&=Crear("TabCtrl",%hwnd,"Tab1",0,0,width(%hwnd),height(%hwnd))
InsertTab(tabctrl&, 1, "Tab2")
var edit&=Crear("Edit",%hwnd,"",25,34,width(%hwnd)-50,30)

mientras que 1

    waitinput
    caso %umessage=16 : AppExit
    caso TabChanged(tabctrl&)  : TabChange()

Endwhile

Proc TabChange

    EnableWindow tabctrl&,0
    Repaint
    locate 1,15
    imprimir GetActiveTab(tabctrl&)

    if GetActiveTab(tabctrl&)=0

        Setwindowpos edit&=5,34 - (width(%hwnd)-50),30;-1
        locate 1,17
        imprimir "=0"

    más

        Setwindowpos edit&=(width(%hwnd)-55),34 - (width(%hwnd)-50),30; -1
        locate 1,17
        imprimir "<>0"

    Endif

    EnableWindow tabctrl&,1
    Volver 1

ENDPROC

Proc AppExit

    end

ENDPROC