Messagebox: Hilfebutton abfragen

Frank Abbing, 30.12.2005 22:16: Benötigt iF's fantastische Thread-Unit.
[code:1:75f5208e2b]$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[/code:1:75f5208e2b]

'Messagebox: Hilfebutton abfragen

Beitrag, 16.07.2007 00:50: ;createCode() 'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt: 'Messagebox: Hilfebutton 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 [Messagebox: Hilfebutton abfragen].