Выбор из нередактируемого dw клавишей Enter

type dw_1 from datawindow within w_1
event enterclick pbm_dwnprocessenter
end type

event enterclick
Long ll_row, ll_retval
ll_row = GetRow()
ll_retval = this.Object.Data[ll_row, 1]
CloseWithReturn( Parent, ll_retval )
end event