Alguma coisa impede ter várias janelas?
Por exemplo: tÃtulo repetido

Moderador: Moderadores
INIT WINDOW ::oFrm TITLE ::cTitulo AT 20, 0 SIZE 800, 600 ON EXIT hwg_EndWindow( ::oFrm )
METHOD Close() INLINE hwg_EndDialog( ::handle )
IF handle == Nil
IF ( oDlg := Atail( HDialog():aModalDialogs ) ) == Nil
RETURN Nil
ENDIF
FUNCTION hwg_EndDialog( handle )
LOCAL oDlg, lRes
IF handle == Nil
IF ( oDlg := Atail( HDialog():aModalDialogs ) ) == Nil
RETURN Nil
ENDIF
ELSE
IF ( ( oDlg := Atail( HDialog():aModalDialogs ) ) == Nil .OR. ;
oDlg:handle != handle ) .AND. ;
( oDlg := HDialog():FindDialog( handle ) ) == Nil
RETURN Nil
ENDIF
ENDIF
IF oDlg:bDestroy != Nil
lRes := Eval( oDlg:bDestroy, oDlg )
IF Valtype( lRes ) != "L" .OR. lRes
RETURN Iif( oDlg:lModal, Hwg__EndDialog( oDlg:handle ), hwg_Destroywindow( oDlg:handle ) )
ELSE
RETURN Nil
ENDIF
ENDIF
RETURN Iif( oDlg:lModal, Hwg__EndDialog( oDlg:handle ), hwg_Destroywindow( oDlg:handle ) )
CLASS VAR aModalDialogs SHARED INIT {}
Error BASE/1004 No exported method: CLOSE
Called from CLOSE(0)
Called from (b)FRMCLASS_SAIR(172)
Called from FRMCLASS:SAIR(172)
Called from FRMCLASS:NEW(51)
Called from PTESHWGUI(16)
METHOD Sair() CLASS FrmClass
Eval( { || ::oFrm:Close() } )
RETURN Nil
FUNCTION hwg_EndDialog( handle )
LOCAL oDlg, lRes, nItem
IF handle == Nil
IF ( oDlg := Atail( HDialog():aModalDialogs ) ) == Nil
RETURN Nil
ENDIF
ELSE
IF ( nItem := hb_AScan( HDialog():aModalDialogs, { | e | e:Handle == Handle } ) ) != 0
oDlg := HDialog():aModalDialogs[ nItem ]
ELSEIF ( ( oDlg := Atail( HDialog():aModalDialogs ) ) == Nil .OR. ;
oDlg:handle != handle ) .AND. ;
( oDlg := HDialog():FindDialog( handle ) ) == Nil
RETURN Nil
ENDIF
ENDIF
Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes