XProfan

If getfocus(Button1&)

    Aktion

Elseif getfocus(Button2&)

    Aktion

If @gt(@sendmessage(Button_1%,$00F2,0,0),40)

    ...

ElseIf @gt(@sendmessage(Button_2%,$00F2,0,0),40)

    ...

 $H windows.ph
Declare Ende&,Button&
cls
Button& = Create("BUTTON",%hwnd,"OK",10,10,80,24)

Whilenot ende&

    Waitinput

    If ~GetDlgItem(%hwnd,%MenuItem*-1) = Button&

        Print "Hoppla"

    Endif

WINDOWSTYLE 31
WINDOWTITLE "Hauptprogramm"
WINDOW 0,0-640,440
Declare DIALOG&,Button&,message&,Window&,Dialogtext$,ENDE&,Zeit$,Zähler&
Declare Listbox&

PROC Messagefenster

    PARAMETERS Überschrift$,Text$ Überschrift$ identifiziert das geschlossene Fenster, Text$ ist ein Meldungstext
    WINDOWSTYLE 16 Fenster ohne Menü
    Am Aussehen läßt sich bestimmt noch eine Menge verbessern..
    Let Dialogtext$="Hinweis von Hauptprogramm " Wichtig, um zu erkennen, ob ein Dialogfensterbutton gedrückt wurde
    LET DIALOG&=@Create("Window",%Desktop,@add$(Dialogtext$,Überschrift$),0,0,300,110) Erstellung des Dialoges auf dem Desktop
    @Create("Button",Dialog&,"OK",100,50,80,25) Button zum Wegklicken
    @create("Text",,Dialog&,TEXT$,0,0,300,40) Meldungstext
    SetWindowPos Dialog&=@rnd(@sub(%MAXX,300)),@rnd(@sub(%MAXY,110))-300,110;-1 Dialgfenster immer im Vordergrund

endproc

Jetzt kommt das Hauptprogramm
LET LISTBOX&=@Create("Listbox",%HWND,"",10,160,600,100) Für die Rückmeldung
LET ENDE&=@Create("Button",%HWND,"Ende",230,350,100,25) Button schadet nichts

WHILENOT @GETFOCUS(ENDE&) Solange nicht Ende gedrückt wurde

    If @gt(@Height(%HWND),20) Nur, wenn das Hauptfenster ncht minimiert ist...

        Drawtext 0,100,@add$(@str$(&GETTICKCOUNT),"        ") Nur, damit man sieht, daß das Programm weiterläuft.
        Drawtext 0,0,@add$(@str$(%MENUITEM),"        ") Nur für mich, ist unwichtig!

    endif

    IF @neq$(Zeit$,Time$(0)) Jede Minute wird ein Popup erzeugt!

        LET ZÄHLER&=ZÄHLER&+1 Das ist für den Dialog-Fenstertitel
        LET ZEIT$=TIME$(0) Damit das Programm merkt, das eine Minute vergangen ist.
        Messagefenster @str$(Zähler&), @add$("Aktuelle Zeit: ",Zeit$) Prozedur zum Erzeugen des Dialoges wird aufgerufen.

    endif

    IF @lt(%MENUITEM,-999) Wenn irgendwo ein Button gedrückt wurde..

        LET WINDOW&=@getactivewindow() Holt sich das Handle des Fensters mit dem gedrückten Button.

        IF @gt(@len(@GetText$(WINDOW&)),@sub(@len(Dialogtext$),1)) Damits bei der nächsten Abfrage keinen Fehler gibt!

            IF @equ$(@mid$(@GetText$(WINDOW&),1,@len(Dialogtext$)),Dialogtext$) Wenn das dann ein Dialogfenster deines Programmes ist..

                @addstring(Listbox&,@GetText$(WINDOW&)+" um "+@time$(0)+" Uhr weggeklickt!") Schreibt in die Listbox das weggeklickte Fenster.
                @destroywindow(Window&) Löscht das Dialogfenster
                setmenuitem 0 Zurücksetzen des Buttonklicks

            endif

        endif

    endif

'./../../funktionsreferenzen/XProfan/Wend/'>Wend

If @gt(@sendmessage(Button_1%,$00F2,0,0),40)

    ...

ElseIf @gt(@sendmessage(Button_2%,$00F2,0,0),40)

    ...