Hola foro,
Algun sample que me muestre como colocar un dialogo dentro de una ventana (sin usar recursos) ?
Gracias
Compuin wrote:Hola foro,
Algun sample que me muestre como colocar un dialogo dentro de una ventana (sin usar recursos) ?
Gracias
#include "Fivewin.ch"
Function Main()
local oWnd
local oDlg
DEFINE WINDOW oWnd
// Si lo defines aqui, el diálogo ha de ser NOWAIT ( o sea NO MODAL )
DEFINE DIALOG oDlg OF oWnd
ACTIVATE DIALOG oDlg CENTERED IN PARENT NOWAIT
ACTIVATE WINDOW oWnd // ON INIT DlgInit( oWnd )
Return nil
// Si quieres que sea modal, tienes que poner la llamada a la creacion del dialogo en la clausula ON INIT de la ventana
Function DlgInit( oWnd )
local oDlg
DEFINE DIALOG oDlg OF oWnd
ACTIVATE DIALOG oDlg CENTERED IN PARENT
Return nil
cnavarro wrote:Compuin wrote:Hola foro,
Algun sample que me muestre como colocar un dialogo dentro de una ventana (sin usar recursos) ?
Gracias
Prueba esto
- Code: Select all Expand view
#include "Fivewin.ch"
Function Main()
local oWnd
local oDlg
DEFINE WINDOW oWnd
// Si lo defines aqui, el diálogo ha de ser NOWAIT ( o sea NO MODAL )
DEFINE DIALOG oDlg OF oWnd
ACTIVATE DIALOG oDlg CENTERED IN PARENT NOWAIT
ACTIVATE WINDOW oWnd // ON INIT DlgInit( oWnd )
Return nil
// Si quieres que sea modal, tienes que poner la llamada a la creacion del dialogo en la clausula ON INIT de la ventana
Function DlgInit( oWnd )
local oDlg
DEFINE DIALOG oDlg OF oWnd
ACTIVATE DIALOG oDlg CENTERED IN PARENT
Return nil
Compuin wrote:Hola foro,
Algun sample que me muestre como colocar un dialogo dentro de una ventana (sin usar recursos) ?
Gracias
Compuin wrote:
No funciona
Necesito el dialogo dentro de la Ventana como un contenedor para los objetos
Compuin wrote:No queda el diálogo incrustado en la ventana. Ambos quedan separados
#include "Fivewin.ch"
Function Main()
local oWnd
local oDlg
DEFINE WINDOW oWnd
DEFINE DIALOG oDlg OF oWnd STYLE WS_POPUP
oDlg:SetColor( CLR_BLUE, CLR_GRAY )
ACTIVATE DIALOG oDlg CENTERED IN PARENT NOWAIT
ACTIVATE WINDOW oWnd
Return nil
Silvio.Falconi wrote:Hace mucho tiempo el señor Rao había hecho una prueba de ejemplo
viewtopic.php?p=216176#p216176
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 39 guests