Bloquear Form

[andreroomt]

Alguém sabe como desabilitar um form, sem ser através da opção modal, tenho uma aplicacao que trabalha com 3 janelas e quando estiver em uma quero bloquear as outras 2.

[HASA]

:-O
Amigo, de um pouco mais de informação, quanto as outras janelas.
HASA

[Claudio Soto]

Alguém sabe como desabilitar um form, sem ser através da opção modal, tenho uma aplicacao que trabalha com 3 janelas e quando estiver em uma quero bloquear as outras 2.

Código: Selecionar todos

EnableWindow ( GetFormHandle ("Form_1") )

DisableWindow ( GetFormHandle ("Form_1") )

[andreroomt]

OK,vou testar aqui, as vezes os usuários fecham a janela errada e travam a aplicação. :)Pos :)Pos :)Pos

[andreroomt]

Deu certo, muito obrigado Claudio Soto, a muito tempo postei essa dúvida, mas ninguem conseguia responder e os burros dos usuários fazem coisas erradas e jogam a culpa no sistema, e na documentação da minigui, não tem um comando para bloquear forms, Meus sistemas vão ficar mais rústicos e profissionais. :-Y :-Y :-Y

[HASA]

)
Legal, também desconhecia essa recurso.
:{
HASA

[Claudio Soto]

En HMG Oficial la sintaxis es mas sencilla:

ThisWindow|<FormName>.Enabled [ := | --> ] lBoolean

y también existen otros recursos en tiempo de ejecución:

Código: Selecionar todos

      ThisWindow|<FormName>.Handle            --> nFormHandle
      ThisWindow|<FormName>.Index             --> nFormIndex
      ThisWindow|<FormName>.IsMinimized       --> lBoolean
      ThisWindow|<FormName>.IsMaximized       --> lBoolean
      ThisWindow|<FormName>.ClientAreaWidth   --> nWidth
      ThisWindow|<FormName>.ClientAreaHeight  --> nHeight
 
      ThisWindow|<FormName>.NoCaption   [ := | --> ] lBoolean
      ThisWindow|<FormName>.NoMaximize  [ := | --> ] lBoolean
      ThisWindow|<FormName>.NoMinimize  [ := | --> ] lBoolean
      ThisWindow|<FormName>.NoClose     [ := | --> ] lBoolean
      ThisWindow|<FormName>.NoSize      [ := | --> ] lBoolean
      ThisWindow|<FormName>.NoSysMenu   [ := | --> ] lBoolean
      ThisWindow|<FormName>.HScroll     [ := | --> ] lBoolean
      ThisWindow|<FormName>.VScroll     [ := | --> ] lBoolean
      ThisWindow|<FormName>.Enabled     [ := | --> ] lBoolean
 
      ThisWindow|<FormName>.AlphaBlendTransparent := nAlphaBlend (0 to 255, Completely Transparent = 0, Opaque = 255)
      ThisWindow|<FormName>.BackColorTransparent  := aRGBColor