Beitrag, 15.07.2007 21:41: ;createCode() '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
Dies ist die Offlinevariante vom Thread [Buttonklick per API abfangen].
©2006 XProfan.Com