Dependiendo del momento en el que se definen los controles de un dialogo, estos ocupan posiciones diferentes, cuando el comando de creaci贸n es id茅ntico, alguna forma para que las coordenadas finales en pantalla sean la misma indpendientemente del momento de creaci贸n. En el primer caso se crean antes del ACTIVATE, y en el segundo se crean en ON INIT.
say.prg
Este c贸digo es com煤n a los dos di谩logos.
say.prg
@ 24, 16 SAY "SAY 1" OF oDlg SIZE 聽88, 聽16 PIXEL
@ 48, 16 SAY "SAY 2" OF oDlg SIZE 聽88, 聽16 PIXELEste c贸digo es com煤n a los dos di谩logos.
#include "FiveWin.ch"
FUNCTION Main()
聽 聽LOCAL oDlg
聽 聽Dlg1()
聽 聽Dlg2()
聽 聽?'WAIT'
RETURN NIL
//----------------------
STATIC FUNCTION Dlg1()
聽 聽LOCAL oDlg
聽 聽DEFINE DIALOG oDlg TITLE ProcName() FROM 0,0 TO 10, 30
聽 聽#include "say.prg"
聽 聽ACTIVATE DIALOG oDlg NOWAIT
RETURN NIL
//---------------------
STATIC FUNCTION Dlg2()
聽 聽LOCAL oDlg
聽 聽DEFINE DIALOG oDlg TITLE ProcName() FROM 0,31 TO 10, 61
聽 聽ACTIVATE DIALOG oDlg ON INIT PlaceCtrl(oDlg) NOWAIT
RETURN NIL
//-----------------------------
STATIC FUNCTION PlaceCtrl(oDlg)
聽 聽#include "say.prg"
RETURN NIL
