XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Buttonklick per API abfangen
Def @Getdlgctrlid(1) !USER32,GetDlgCtrlID
Def @Buttonclicked(1) @Getdlgctrlid(@&(1))=-%Menuitem
Windowstyle 31+512
Windowtitle Buttonklick abfragen
Window 0,0-640,440
Declare Button&[5]
Let Button&[1]=@Createbutton(%Hwnd,Button 1,10,10,200,30)
Let Button&[2]=@Createbutton(%Hwnd,Button 2,10,50,200,30)
Let Button&[3]=@Createbutton(%Hwnd,Button 3,10,90,200,30)
Let Button&[4]=@Createbutton(%Hwnd,Button 4,10,130,200,30)
Let Button&[5]=@Createbutton(%Hwnd,Button 5,10,170,200,30)

While %Menuitem<>-2

    Sleep 10

    If @Buttonclicked(Button&[1])

        @Messagebox(Button 1 wurde gedrückt,Buttonklick,64)
        Setmenuitem 0

    Endif

    If @Buttonclicked(Button&[2])

        @Messagebox(Button 2 wurde gedrückt,Buttonklick,64)
        Setmenuitem 0

    Endif

    If @Buttonclicked(Button&[3])

        @Messagebox(Button 3 wurde gedrückt,Buttonklick,64)
        Setmenuitem 0

    Endif

    If @Buttonclicked(Button&[4])

        @Messagebox(Button 4 wurde gedrückt,Buttonklick,64)
        Setmenuitem 0

    Endif

    If @Buttonclicked(Button&[5])

        @Messagebox(Button 5 wurde gedrückt,Buttonklick,64)
        Setmenuitem 0

    Endif

Wend