Form Modal E Noa Modal

[ramon]

Tenho um form que foi carregado como modal porem quero carregar outro form mas não quero que seja modal

E se faco isso acontece um erro

Como possso resolver isso?

[Graymalkin]

Dê um exemplo de como está fazendo isso. Acredito que sua dúvida ficará mais clara dessa forma.

Abraços,

Graymalkin

[maslack]

eu acho que não da para fazer isso pois você deve estar querando abrir um outro form não modal em cima de um modal

é isso?

[ramon]

É o seguinte

Tenho o form 1 que é modal abro outro form2 que tambem é modal agora quero abrir o form 3 que não é modal (eu não quero que esse form seja modal) ae acontece um erro

Tem algum jeito pararesolver isto?

[Graymalkin]

Realmente não dá. Se isso fosse possível o form não poderia ser chamado de modal e perderia totalmente sua principal função.

Abraços,

Graymalkin

[Garcia]

Ao invés de abrir forms modais, você deve abrir os forms como "modeless".

Modeless, abre o form sobre os outros forms, permite que você clique em outros forms mas não torna o form exclusivo.

Veja esse exemplo:

- Crie dois forms, Form1 e Form2

- Crie um botão em Form1

- No evento clique do botão, escreva:

----- Form2.show vbModeless, Me

Exeute e veja o resultado.

qualquer coisa... manda outro post

Beleza ?

[ramon]

Ao invés de abrir forms modais, você deve abrir os forms como "modeless".

Modeless, abre o form sobre os outros forms, permite que você clique em outros forms mas não torna o form exclusivo.

Veja esse exemplo:

- Crie dois forms, Form1 e Form2

- Crie um botão em Form1

- No evento clique do botão, escreva:

----- Form2.show vbModeless, Me

Exeute e veja o resultado.

qualquer coisa... manda outro post

Beleza ?

Deste jeito funcionou

Agora só falta desativar para não mover o form com o mouse se não o usuario podera clicar no form 1 e eu não quero

Como se faz para não mover o form?

[William Rodrigues]

Brother...

Coloca a seguinte API no seu código:

Declare Function GetMenu% Lib "User" _
        (ByVal hWnd%)
Declare Function RemoveMenu% Lib "User" _
        (ByVal hWnd%, ByVal nPosition%, _
        ByVal wFlags%)

E depois é só colocar isso:

Dim Res%
Res = RemoveMenu(GetMenu(Form.hWnd), _
      SC_MOVE, MF_BYPOSITION)

Abraços,

William Rodrigues

[Garcia]

Salve !!!

Então... pelos meus posts já deu pra perceber que eu detesto programar por API né ?

A solução do amigo William Rodrigues funciona, mas se você estiver usando VB6.0, o form tem uma propriedade chamada Moveable. Ajuste ela para false e BE HAPPY !!!

Beleza ?

[ramon]

valeu pessoal

[William Rodrigues]

Beleza..

Qualquer coisa é só postar

Abraços,

William Rodrigues