MDICHILD

MDICHILD

Postby colthop » Tue Jul 28, 2009 11:21 am

Hola de Nuevo:

Necesitaria saber si se puede crear una ventana MDICHILD dentro de otra MDICHILD ya que lo intento y me da el siguiente error:

    Application
    ===========
    Path and name: C:\ColtHop\cyewin\cyewin.exe (32 bits)
    Size: 4,564,992 bytes
    Time from start: 0 hours 0 mins 4 secs
    Error occurred at: 28/07/2009, 13:20:46
    Error description: Error BASE/1005 Message not found: TMDICHILD:_OWNDACTIVE

    Stack Calls
    ===========
    Called from: tobject.prg => TMDICHILD:ERROR(172)
    Called from: tobject.prg => TMDICHILD:MSGNOTFOUND(205)
    Called from: tobject.prg => TMDICHILD:_OWNDACTIVE(0)
    Called from: MDICHILD.PRG => TMDICHILD:NEW(0)
    Called from: gesti110.prg => GESTI110(44)
    Called from: gestmenu.prg => OPCIMENU(502)
    Called from: gestmenu.prg => SELMEN01(213)
    Called from: gestmenu.prg => CONMEN02(168)
    Called from: gestmenu.prg => (b)GESTMENU(62)
    Called from: WINDOW.PRG => TMDICHILD:LBUTTONDOWN(0)
    Called from: => TWINDOW:HANDLEEVENT(0)
    Called from: MDICHILD.PRG => TMDICHILD:HANDLEEVENT(0)
    Called from: WINDOW.PRG => _FWH(0)
    Called from: => WINRUN(0)
    Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
    Called from: cyewin.prg => MAIN(248)

    System
    ======
    CPU type: Intel(R) Core(TM)2 CPU T5300 @ 1.73GHz 15666 Mhz
    Hardware memory: 1022 megs

    Free System resources: 90 %
    GDI resources: 90 %
    User resources: 90 %

    Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)
    Windows version: 5.1, Build 2600 Service Pack 2

    Windows total applications running: 49
    1 TF_FloatingLangBar_WndTitle
    2 CiceroUIWndFrame
    3 M
    4 Default IME
    5 NVIDIA nView Desktop Manager
    6 DirectDBNotifyWndProc
    7 Outlook Express FolderSync Window Class
    8 SysFader
    9 DirectDBListenWndProc
    10 Maximizar en la pantalla actual
    11 CL RC Engine3 Dummy Winidow
    12 CyEWin Contabilidad y Estimaciones en WINDOWS
    13 Símbolo del sistema
    14 http://www.FiveTechSoft.com • Post a new topic - Windows Internet Explorer
    15 manual
    16 MCI command handling window
    17 Bandeja de entrada - Outlook Express
    18 Acrobat IEHelper
    19 Identity Mgr Notify
    20 WAB Notification Window
    21 DDE Server Window
    22 Lphant v3.51 ( SU:9,9 DE:93 MEDDE:66,9 )
    23 .NET-BroadcastEventWindow.2.0.0.0.33c0d9d.0
    24 DAEMON Tools Panel
    25 BTW Stack Server
    26 Connections Tray
    27 Medidor de energía
    28 MS_WebcheckMonitor
    29 Beyond Quick Launch Buttons Message Window
    30 EndSessionHandling
    31 CDirectoryChangeWatcherHelperWindow
    32 NVIDIA TwinView Window
    33 QuickPlay service
    34 TouchPad object helper window
    35 SR Monitor
    36 Touchpad driver tray icon window
    37 Avira AntiVir Personal - Free Antivirus - SysTray
    38 AcrobatTrayIcon
    39 MediaCenter
    40 HPWU
    41 HAUPPAUGEEPGSERVICETRAYWINDOW
    42 Hauppauge DVB-T EPG Service
    43 Touchpad driver backward compatibility window
    44 Touchpad driver helper window
    45 BDA TV Monitor
    46 NVSVCPMMWindowClass
    47 BTTrayMainWindow
    48 GDI+ Window
    49 Program Manager

    Variables in use
    ================
    Procedure Type Value
    ==========================
    TMDICHILD:ERROR
    Param 1: C "Message not found"
    Param 2: C "TMDICHILD"
    Param 3: C "_OWNDACTIVE"
    Param 4: N 1005
    Local 1: U
    Local 2: O Class: TMDICHILD
    Local 3: N 16
    TMDICHILD:MSGNOTFOUND
    Param 1: C "_OWNDACTIVE"
    Param 2: O Class: TMDICHILD
    TMDICHILD:_OWNDACTIVE
    Param 1: O Class: TMDICHILD
    TMDICHILD:NEW
    Param 1: N 5.86
    Param 2: N 7.03
    Param 3: N 562.50
    Param 4: N 857.81
    Param 5: C "MDI Child 7"
    Param 6: N 317652992
    Param 7: O Class: TMENU
    Param 8: O Class: TMDICHILD
    Param 9: U
    Param 10: L .T.
    Param 11: N 0
    Param 12: N 14811105
    Param 13: U
    Param 14: U
    Param 15: L .T.
    Param 16: L .F.
    Param 17: U
    Param 18: C "SINGLE"
    Param 19: L .T.
    Param 20: L .T.
    Param 21: L .T.
    Param 22: L .T.
    Param 23: U
    Local 1: O Class: TMDICHILD
    GESTI110
    OPCIMENU
    SELMEN01
    CONMEN02
    Param 1: N 82
    Param 2: N 516
    (b)GESTMENU
    Param 1: N 82
    Param 2: N 516
    Param 3: N 1
    Param 4: O Class: TMDICHILD
    TMDICHILD:LBUTTONDOWN
    Param 1: N 82
    Param 2: N 516
    Param 3: N 1
    Local 1: O Class: TMDICHILD
    TWINDOW:HANDLEEVENT
    Param 1: N 513
    Param 2: N 1
    Param 3: N 5374468
    TMDICHILD:HANDLEEVENT
    Param 1: N 513
    Param 2: N 1
    Param 3: N 5374468
    Local 1: O Class: TMDICHILD
    _FWH
    Param 1: N 5374468
    Param 2: N 513
    Param 3: N 1
    Param 4: N 5374468
    Param 5: N 66
    Local 1: O Class: TMDICHILD
    WINRUN
    Param 1: N 1376530
    TMDIFRAME:ACTIVATE
    Param 1: C "MAXIMIZED"
    Param 2: U
    Param 3: U
    Param 4: U
    Param 5: U
    Param 6: U
    Param 7: U
    Param 8: B {|| ... }
    Param 9: U
    Param 10: U
    Param 11: U
    Param 12: U
    Param 13: U
    Param 14: U
    Param 15: U
    Param 16: U
    Param 17: B {|| ... }
    Param 18: U
    Param 19: U
    Local 1: O Class: TMDIFRAME
    Local 2: U
    Local 3: U
    MAIN
    Local 1: U

    Linked RDDs
    ===========
    DBF
    DBFCDX

    DataBases in use
    ================

    1: EMPRESA RddName: DBFCDX
    ==============================
    RecNo RecCount BOF EOF
    3 9 .F. .F.

    Indexes in use TagName
    apellidos + nombre EMPRE02
    => numero EMPRE01

    Relations in use

    9: FACTURAP RddName: DBFCDX
    ==============================
    RecNo RecCount BOF EOF
    1 0 .T. .T.

    Indexes in use TagName
    str(act,6,0) + str(factura,6,0) FACTUP01
    str(act,6,0) + dtos(fecha) FACTUP02

    Relations in use

    16: => IMPRESOS RddName: DBFCDX
    ==============================
    RecNo RecCount BOF EOF
    9 8 .T. .T.

    Indexes in use TagName
    => ejercicio + str(periodo,2,0) + tipoIMPRES01

    Relations in use

    25: IMPREMPR RddName: DBFCDX
    ==============================
    RecNo RecCount BOF EOF
    16 16 .F. .F.

    Indexes in use TagName
    => empresa + ejercicio IMPEMP01

    Relations in use

    Classes in use:
    ===============
    1 HASHENTRY
    2 HBCLASS
    3 HBOBJECT
    4 TFONT
    5 TCURSOR
    6 TWINDOW
    7 TCONTROL
    8 TBITMAP
    9 TBRUSH
    10 TMDIFRAME
    11 TMENU
    12 TMENUITEM
    13 TICON
    14 TMDICLIENT
    15 TMSGBAR
    16 TRECT
    17 TMSGITEM
    18 TTIMER
    19 TMDICHILD
    20 TSAY
    21 TSBUTTON
    22 ERROR
    23 TDIALOG
    24 TSCROLLBAR
    25 TREG32

    Memory Analysis
    ===============
    146 Static variables

    Dynamic memory consume:
    Actual Value: 0 bytes
    Highest Value: 0 bytes
Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
colthop
 
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España

Re: MDICHILD

Postby antolin » Wed Jul 29, 2009 11:28 am

Creo que no se puede hacer, pero si que podrias crear cuadros de dialogos NOWAIT. Guardar los hWnd´s de los dialogos en algun array y cuando salgas del último MDICHILD cerrar los dialogos con SendMessage( hWnd, WM_CLOSE ) o PostMessage( hWnd, WM_CLOSE ).

Por ejemplo:

Code: Select all  Expand view  RUN
LOCAL aDlg := {}

Después para abrir cada ventana:

DEFINE DIALOG oDlg
   ....
ACTIVATE oDlg NOWAIT
ASIZE( aDlg, Len(aDlg)+1 )
ATAIL( aDlg, oDlg:hWnd )
...

Para cerrar las ventanas:

FOR nCont = Len(aDlg) TO 1 STEP -1   // EN ORDEN INVERSO ES MEJOR
   SendMessage( aDlg[nCont], WM_CLOSE )
   SysWait(0.5)  // ESTO NO ES OBLIGATORIO, SOLO PARA QUE SE VEA COMO SE CIERRAN UNA TRAS OTRA
NEXT
Peaaaaaso de foro...
FWH 2007 - xHarbour - BCC55
antolin
 
Posts: 498
Joined: Thu May 10, 2007 8:30 pm
Location: Sevilla


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 103 guests