cnodnarb Professional Member
Joined: 11 Sep 2002 Posts: 762 Location: Rockeledge, GA
|
Posted: Mon May 09, 2011 4:49 pm Post subject: Get my form ID |
|
|
Code: | DIALOG CREATE,New Dialog,-1,0,240,160
REM *** Modified by Dialog Designer on 5/9/2011 - 10:41 ***
DIALOG ADD,BUTTON,BUTTON1,0,0,0,0,BUTTON1
DIALOG ADD,BUTTON,BUTTON2,101,97,64,24,GetMyIDAgain
DIALOG SHOW
REM WAIT STATEMENT NOT NECESSARY WHEN COMPILED. NOT SURE WHAT'S UP.
wait 0
window send,@winexists(~button1),@cr()
wait event
dialog remove,button1
parse "%%event;%%dialog",@event(d)
info %%dialog
:evloop
wait event
goto @event()
:close
exit
:button2button
DIALOG ADD,BUTTON,BUTTON1,0,0,0,0,BUTTON1
window send,@winexists(~button1),@cr()
wait event
dialog remove,button1
parse "%%event;%%dialog",@event(d)
info %%dialog
goto evloop |
|
|