Beitrag, 16.07.2007 00:04: ;createCode() 'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt: 'Hilfebutton in Messagebox abfragen $U thread.pcu = thread. Declare dum&,x&,y&,text$ Cls thread.start 1,6 thread.start 2,2 whilenot (%key==2) waitinput Wend thread.stopall End proc thread.do parameters n& If n&=1 MessageBox("Willst du mich wirklich testen?","Messagebox",$4004) '$4000 für WM_HELP thread.stopall ElseIf n&=2 If %message=83 'WM_HELP Repaint 'sonst Vielfachaufruf unter XP Print "Jetzt Hilfe aufrufen!" EndIf EndIf endproc
Dies ist die Offlinevariante vom Thread [Hilfebutton in Messagebox abfragen].
©2006 XProfan.Com