XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dialogfenster erstellen
Declare Ende%

PROC Dialog1

    Declare hD%, hB%, OK%
    Dialogfenster erzeugen
    Let hD% = @CreateDialog(%HWnd,Dialogfenster,80,90,180,160)
    Einen Button mit OK erzeugen
    Let hB% = @CreateButton(hD%,&OK,120,100,40,25)
    Dialog-Schleife
    Let OK% = 0

    WhileNot Ok%

        WaitInput

        If @GetFocus(hB%) OK wurde angeklickt

            Let Ok% = 1

        EndIf

    Wend

    Dialogfenster (incl. Button) entfernen
    @DestroyWindow(hD%)

ENDPROC

Haupt-Programm
--------------
Window 20,20-400,300
PopUp &Aktion
AppendMenu 101,&Dialog
Separator
AppendMenu 199,&Ende
Let Ende% = 0

WhileNot Ende%

    WaitInput

    If @MenuItem(101)

        Dialog1

    ElseIf @MenuItem(199)

        Let Ende% = 1

    EndIf

Wend

'./../../references-fonction/XProfan/end/'>Fin

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Dialogfenster erstellen
-Begin-----------------------------------------------------------------
Declare Ende%
-Procedure Dialog1---------------------------------------------------

Proc Dialog1

    Declare hD%, hB%, OK%
    -Dialogfenster erzeugen-
    hD% = @Create(Dialog,%HWnd,Dialogfenster,80,90,180,160)
    -Einen Button mit OK erzeugen-
    hB% = @Create(Button,hD%,&OK,120,100,40,25)
    -Dialog-Schleife-
    Clear OK%

    WhileNot Ok%

        WaitInput

        If @Clicked(hB%) OK wurde angeklickt

            Ok% = 1

        EndIf

    EndWhile

    -Dialogfenster (incl. Button) entfernen-
    @DestroyWindow(hD%)

EndProc

-Haupt-Programm------------------------------------------------------
Window 20,20-400,300
PopUp &Aktion
AppendMenu 101,&Dialog
Separator
AppendMenu 199,&Ende
Clear Ende%

WhileNot Ende%

    WaitInput

    If @MenuItem(101)

        Dialog1

    ElseIf @MenuItem(199)

        Ende% = 1

    EndIf

EndWhile

-End-------------------------------------------------------------------
f='./../../references-fonction/XProfan/end/'>Fin