DEF FN_clickp(RETURN H%, RETURN L%, RETURN P%)
LOCAL c%(), d%()
DIM c%(1), d%(1)
ON SYS LOCAL c%() = @wparam%, @lparam% : RETURN
c%() = 0
REPEAT
d%() = 0
WAIT 1
SWAP c%(), d%()
UNTIL d%(0) <> 0 OR d%(1) <> 0
H% = d%(0) DIV &10000 : L% = d%(0) MOD &10000 : P% = d%(1)
PRINT H%, L% : REM to test the notifications
= FALSE
INSTALL @lib$+"WINLIB2"
INSTALL @lib$+"WINLIB5"
WM_NEXTDLGCTL = 40
dlg1% = FN_DLG1
dlg2% = FN_DLG2
PROC_showdialog(dlg1%)
PROC_showdialog(dlg2%)
WAIT 100
PROC_closedialog(dlg2%)
REM THIS LINE DOESN'T WORK
REM SYS "PostMessage", !dlg1%, WM_NEXTDLGCTL, 0, 0 TO result% : PRINT result%
REM THIS LINE DOES WORK
REM SYS "GetDlgItem", !dlg1%, 1 TO h% : PROC_setfocus(h%)
WAIT 100
PROC_closedialog(dlg1%)
END
DEF FN_DLG1
LOCAL dlg%
dlg%=FN_newdialog("Dialogue box 1",150,50,160,128,8,180)
PROC_pushbutton( dlg%, "OK",1,16,104,50,14,&20001):REM BS_DEFPUSHBUTTON, WS_TABSTOP, WS_GROUP
PROC_pushbutton( dlg%, "Cancel",2,88,104,50,14,&0)
=dlg%
DEF FN_DLG2
LOCAL dlg%
dlg%=FN_newdialog("Dialogue box 2",160,60,160,128,8,180)
PROC_pushbutton( dlg%, "OK",1,16,104,50,14,&20001):REM BS_DEFPUSHBUTTON, WS_TABSTOP, WS_GROUP
PROC_pushbutton( dlg%, "Cancel",2,88,104,50,14,&0)
=dlg%