Create dialog and interact with it

[Gintaras]

flag 1 - modeless dialog.
And need to process messages.
Function Dialog210

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

str controls = "3"
str c3one

hDlg=ShowDialog("Dialog210" &Dialog210 &controls 0 1)
opt waitmsg 1
1
_s="kkkkk"
_s.setwintext(id(3 hDlg))
1
DestroyWindow hDlg


;BEGIN DIALOG
;0 "" 0x10C00AC8 0x0 0 0 224 131 "Macro en cours"
;3 Static 0x54000001 0x8000000 88 22 48 10 "Text"
;END DIALOG
;DIALOG EDITOR: "" 0x2030605 "" "" "" ""

ret
;messages
sel message
,case WM_LBUTTONDBLCLK
,DT_Cancel hDlg
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1