XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Edit: Passworteingabe (1)
declare exit&,e%
declare edit&,vorgabe$
cls
exit& = CreateButton(%HWnd,Beenden,10,380,100,35)
vorgabe$ =
edit& = CONTROL(Edit,vorgabe$,$54810020,10,20,200,25,%HWnd,0,%HInstance,$0200)
SetFocus(edit&)

whilenot e%

    WaitInput

    if GetFocus(exit&)

        e% = 1

    endif

wend

end