Una solución sencilla es usar la claúsula OF del diálogo:
Code: Select all
...
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