XProfan

1. Fenster
DEF GETSYSCOLOR(1) !USER32,GetSysColor
WINDOWSTYLE 31 47
WINDOWTITLE Test
WINDOW SUB(DIV(%MAXX,2),DIV(740,2)),SUB(DIV(%MAXY,2),DIV(500,2))-660,500
SETTRUECOLOR 1
CLS GETSYSCOLOR(1)15
SETDIALOGFONT 1
2.Fenster im 1. Fenster
dlg% = create(Dialog,%Hwnd,Test2,340,200,250,100)
CBox& = @Control(ComboBox,,$5421034E,10,10,200,200,Dlg%,2000,%hinstance)
End%=@createbutton(Dlg%,Auswahl,80,40,80,32)
Addfiles *.DAT
MoveListToChoice(CBox&

WHILENOT ENDE%

    if %(key=255) or (key%=13)

        BREAK
        elseif.

if (%key=255) or (%key=13)re>

declare exit&,e%,a$
declare edit&,vorgabe$
DEF GETSYSCOLOR(1) !USER32,GetSysColor
WINDOWSTYLE 31 47
WINDOWTITLE Apex Elektronik GmbH Grevenbroich Tel. 02181-24040
WINDOW SUB(DIV(%MAXX,2),DIV(740,2)),SUB(DIV(%MAXY,2),DIV(500,2))-400,150
SETTRUECOLOR 1
CLS GETSYSCOLOR(1)15
SETDIALOGFONT 1
exit& = CreateButton(%HWnd,Ok,150,50,100,35)
vorgabe$ =
edit& = CONTROL(Edit,vorgabe$,$54810020,150,20,100,25,%HWnd,0,%HInstance,$0200)
SetFocus(edit&)

whilenot e%

    if (%key=255) or (%key=13) or getfocus(exit&)

        e% = 1

    endif

wend

A$ = gettext$(edit&)

if a$=qwert

    print a$
    waitinput

else

    end

endif

declare exit&,e%,a$
e%=0 besser
declare edit&,vorgabe$
DEF GETSYSCOLOR(1) !USER32,GetSysColor
WINDOWSTYLE 3147
WINDOWTITLE Apex Elektronik GmbH Grevenbroich Tel. 02181-24040
WINDOW SUB(DIV(%MAXX,2),DIV(740,2)),SUB(DIV(%MAXY,2),DIV(500,2))-400,150
Für das Fenster hatte ich Dir eine andere Möglichkeit weiter oben gepostet
SET(TRUECOLOR,1) Muss nicht sein - XProfan ist standartdmäßig so eingestellt
CLS GETSYSCOLOR(1)15
SETDIALOGFONT 1
exit& = CreateButton(%HWnd,&Ok,150,50,100,35)überholt
exit&=CREATE(BUTTON,%HWND,&OK,150,50,100,35)
vorgabe$ =  Wenn die Vorgabe  ist, warum schreibst Du dann nicht im Edit& auch
edit& = CONTROL(Edit,vorgabe$,$54810020,150,20,100,25,%HWnd,0,%HInstance,$0200)
edit& = CONTROL(Edit,,$54810020,150,20,100,25,%HWnd,0,%HInstance,$0200)
SetFocus(edit&)

whilenot e%

    if  ISKEY(255) | (ISKEY(18) & ISKEY(79)) | CLICKED(exit&)

        Du hast den Focus auf der Eingabe(SetFocus(edit&)) daher kann die Enter(13)-Taste nicht
        reagieren. Da Du XProfan10 hast, nimm anstelle von %Key  -   ISKEY
        Hier ist jetzt die ALT(18)-Taste und die O(79)-Taste kombiniert. Zusammen gedrückt, schliessen sie auch
        Anstelle von GetFocus besser CLICKED verwenden. Das ist der Windows-Standard.
        Befehl wird erst beim Loslassen des Buttons ausgeführt.
        e% = 1

    endif

    ENDWHILE Wend ist überholt
    A$ = gettext$(edit&)

    if a$=qwert

        print a$
        waitinput

    else

        end

    endif

    -----------------------------
    FIN

Case CLICKED(OK%) | ISKEY(13):END  oder was hier sonst passieren soll