Una solución sencilla es usar la claúsula OF del diálogo:
- Code: Select all Expand view
...
ACTIVATE WINDOW oWnd ON INIT IniDlg01( oWnd )
...
STATIC FUNCTION IniDlg01( oWnd )
LOCAL oDlg
DEFINE DIALOG oDlg TITLE 'Dlg01' SIZE 200,100 COLOR CLR_BLACK, CLR_RED OF oWnd