XProfan

 $H Windows.ph
Var i% = 1
Cls
Var g& = Create("GroupBox",%hwnd,$ProfVer,10,10,300,130)
Var s& = Create("SpinEdit",%hwnd,"0;-100;100",15,36,100,24)
Var s1& = GetHandle(%hwnd,ItemId(s&) + 1)
~BringWindowToTop( s1&)' hier werden die Pfeile sonst verdeckt

While 1

    WaitInput
    i% = Not(i%)
    ShowWindow(s&,i%)' hier werden die Pfeile nicht berücksichtigt

KompilierenMarqueSéparation
Proc DestroySpinEd

    Paramètres hwnd&,Ed&
    DestroyWindow(GetHandle(hwnd&,ItemID(Ed&) + 1))
    DestroyWindow(Ed&)

ENDPROC

Proc ShowSpinEd

    Paramètres hwnd&,Ed&,i%
    ShowWindow(GetHandle(hwnd&,ItemID(Ed&) + 1),i%)
    ShowWindow(Ed&,i%)

ENDPROC