simplest way
another way
str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 354 200 "Dialog" "4"
;3 Button 0x54032000 0x0 300 3 48 14 "Copy"
;4 QM_Grid 0x56031041 0x200 5 3 288 191 "0x0,0,0,0x0,0x0[]A,,7,[]B,,7,"
;END DIALOG
;DIALOG EDITOR: "" 0x2040B00 "*" "" "" ""
str controls = "4"
str qmg4x
if(!ShowDialog(dd &sub.DlgProc &controls)) ret
#sub DlgProc
function# hDlg message wParam lParam
DlgGrid g.Init(hDlg 4)
sel message
,case WM_INITDIALOG
,_s=
,;1, 2
,;3, 4
,;5, 6
,g.FromCsv(_s ",")
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
,case 3 ;;Copy
,SetFocus g.hwnd
,_s.getsel
,out _s.trim
ret 1
another way
str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 354 200 "Dialog" "4"
;3 Button 0x54032000 0x0 300 3 48 14 "Copy"
;4 QM_Grid 0x56031041 0x200 5 3 288 191 "0x0,0,0,0x0,0x0[]A,,7,[]B,,7,"
;END DIALOG
;DIALOG EDITOR: "" 0x2040B00 "*" "" "" ""
str controls = "4"
str qmg4x
if(!ShowDialog(dd &sub.DlgProc &controls)) ret
#sub DlgProc
function# hDlg message wParam lParam
DlgGrid g.Init(hDlg 4)
sel message
,case WM_INITDIALOG
,_s=
,;1, 2
,;3, 4
,;5, 6
,g.FromCsv(_s ",")
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
,case 3 ;;Copy
,SetFocus g.hwnd
,int row=g.RowSelectedGet
,int cols=g.ColumnsCountGet
,ARRAY(str) rowtext; g.RowGetSA(rowtext row cols 0)
,out rowtext
ret 1