Hi Stephan
versuchs mal so:
Declare Button1%
window 0,0-500,500
BUTTON1% =CREATE("BUTTON",%HWND,"Klick mich",60,29,70,30)
PROC Klick
GETMESSAGE
Case (%MESSAGE,512): RETURN
Endproc
while 1
waitinput
If getfocus(Button1%)
Klick
print "Klick"
Endif
wend
Rolf
|