el ej. testmdi4.prg funciona ok, la unica dif. q tengo son las cordenadas
en mi test :
- Code: Select all Expand view RUN
DEFINE WINDOW oWndChild MDICHILD;
FROM 0, 1.5 TO 30.7, 110.7 ;
TITLE cTitulo ;
COLOR "N/W" ;
ICON oWnd:oIcon;
NOMAXIMIZE ;
OF oWnd
DEFINE DIALOG oDlg RESOURCE "CTCLI0" OF oWndChild
....
....
ACTIVATE DIALOG oDlg NOWAIT ON CLICK oDlg:Update ;
ON INIT ( oDlg:move( 0, 0 ) ) ;
VALID .f.
ACTIVATE WINDOW oWndChild ;
ON INIT ( aDatax["93"]:SetFocus() ) ) ;
VALID ( oDlg:aControls[1]:SetFocus(),;
oFont:End(),oFontg:End(),oFontm:End(),;
DeleteObject(hBmpOn),;
DeleteObject(hBmpOff),;
.T. )
y en el testmdi4.prg es :
- Code: Select all Expand view RUN
DEFINE WINDOW oWndChild MDICHILD OF oWnd ;
FROM 5,5 TO 6,6;
COLOR "N/W" ;
border none nomaximize nominimize // prevent resizing
y en el activate dialog :
ACTIVATE DIALOG oDlg NOWAIT ; // It has to be NonModal --> NOWAIT clause
ON INIT oDlg:Move( 0, 0 ) ;
VALID ( oWndChild:End(), .t. )
es como q ahora hay q reajustar ...
salu2, Ariel.