Formulário MDI Child - Saber se está criado / Existe

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

Avatar do usuário
susviela@bol.com.br
Usuário Nível 3
Usuário Nível 3
Mensagens: 236
Registrado em: 30 Jun 2017 11:17
Localização: São José / SC
Contato:

Formulário MDI Child - Saber se está criado / Existe

Mensagem por susviela@bol.com.br »

Formulário Main é MDI, isso está ok;
No menu ao clicar na opção abre o formulário MDIChild também correto.

Agora preciso evitar que o usuário abra várias instâncias do mesmo fomulário.

Se o form MDIChild existe deve MOSTRAR / FOCAR no mesmo, se não existe deve criar.

Na prática como evitar duplicar o formulário.

Testei assim não deu certo:

Código: Selecionar todos

Function mnuCliente()

	if  hwg_isWindowEnabled( oFrmCliente ) 
		hwg_Msginfo( "oFrmCliente = open", "Janela ativa" )
	else
		frmCliente()
	endif
	
Return Nil
  
.
.
"E quando você perder o controle, colherá o que plantou."
=========================================
Carlos Alberto Nunes #Susviela
Site: https://www.PowerInformatica.com.br
=========================================
Blog xBase: https://programandoxbase.wordpress.com/
Blog TI: https://susviela.wordpress.com

( #ProgramandoxBase #AllxBase )
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Formulário MDI Child - Saber se está criado / Existe

Mensagem por JoséQuintas »

Cheguei a comentar: tem a variável que guarda a lista.
Dá uma olhada na classe window, tem a lista de "windows", e na dialog tem a lista de "dialogs".
Se não houver outra opção, essa é uma alternativa, só olhar na lista.
está definida como CLASS VAR, o que significa que a lista vai ficar disponível em qualquer janela.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Responder