Amigos del foro tengan buena tarde, como dice el encabezado, que debo hacer para controlar las ventas estilo el ms-messenger. Osea que haya una ventana principal, pero que se pueden abrir mas ventanas sobre esta. Pero que no queden contenidas unas dentro de otras como hace con mdi, alguna idea?

Espero me haya hecho entender, de antemano gracias.

Mi estimado Leandro:

Te refieres a vizualizar en un lugar aleatorio de la pantalla una ventana al abrirse, o estoy bastante despistado..?

Ke comportamiento deseas que tengan las ventanas al abrir..?

Comentanos cual es tu idea para poderte dar un empujonsito..

Saludo...

I.S.C. Victor Daniel Cuatécatl León

www.soldisoft.unlugar.com

www.sisa.unlugar.com

amigo leandro compila este ejemplo

\samples\TESTWNDS.PRG

include "fivewin.ch"

function main()

local oWnd1, oWnd2

DEFINE WINDOW oWnd1 TITLE "oWnd1" ;
FROM 5, 5 TO 24, 64

DEFINE WINDOW oWnd2 TITLE "oWnd2" ;
FROM 1, 1 TO 20, 60

oWnd2:Show()

ACTIVATE WINDOW oWnd1

return nil

Saludos

haber se me ocurrio esto, haber que tan cerca estoy..

Pruebalo y me comentas..

INCLUDE "FIVEWIN.CH"

STATIC nDialogos,nVentana,nXPos,nYPos,oWnd

//-----------------------------------------------------------------------------------------------------------------//
FUNCTION Main()

nVentana:= 0
nDialogos:= 0
nXPos:= 0
nYPos:= 0

DEFINE WINDOW oWnd Title "Ventanas Estilo Messenger" MENU MenuPrin()
ACTIVATE WINDOW oWnd

RETURN nil

//-----------------------------------------------------------------------------------------------------------------//
STATIC FUNCTION MenuPrin()

LOCAL oMenu

MENU oMenu

MENUITEM "&Ventanas"
MENU
MENUITEM "&Dialogos" ACTION (NuevoDial())
SEPARATOR
MENUITEM "&Ventanas" ACTION (NuevaVent())
ENDMENU
ENDMENU

RETURN oMenu

//-----------------------------------------------------------------------------------------------------------------//
STATIC FUNCTION NuevoDial()

LOCAL oDlg

nDialogos:= nDialogos + 1

  DEFINE   DIALOG oDlg TITLE "Soy el Dialogo "+ALLTRIM(STR(nDialogos)) 
  ACTIVATE DIALOG oDlg ON INIT oDlg:Move(nXPos:= nXPos + 30, nYPos:= nYPos + 30) NOWAIT

RETURN nil

//------------------------------------------------------------------------------------------//
STATIC FUNCTION NuevaVent()

LOCAL oWndMDI
nVentana:= nVentana + 1

DEFINE   WINDOW oWndMDI MDI TITLE "Soy la Ventana "+ALLTRIM(STR(nVentana))
ACTIVATE WINDOW oWndMDI ON INIT oWndMDI:Move(nXPos:= nXPos + 30, nYPos:= nYPos + 30)

RETURN nil

Amigos Gracias por la ayuda

sysctrl2 -> Estuviste muy cerca, gracias de nuevo por responder.
cuatecatl82 -> Amigo era lo que necesitaba.

Muy amables

Leandro,

En FWH puedes crear tantas ventanas y diálogos independientes como necesites.

No hay limitación, salvo que al cerrar la ventana inicial, se cerrará toda la aplicación.

Ok Antonio, muchas gracias. El problema ya fue solicionado.