(Resolvido) Aplicação Modal

[Carlos Alberto Brauna]

Pessoal estou precisando de ajuda.

Gostaria de criar uma aplicação em vb6, só que eu quero que esta aplicação seja modal. Explicando melhor:

Quero criar uma aplicação (uma janela) que sempre ficará por cima de outra janela que o usuario poder´abrir,mas aminha aplicação sempre ficará por cima, como ocorre com a calculadora do windows.

Minha aplicação terá somente um formulario, e eu não sei como programar para que esse formulario fique modal sempre por cima das outras janelas do windows. alguém pode me dar alguma dica?

Obrigado pela ajuda.

[Fabin]

brother não sei se seria isso que voce queria

mas voce pode fazer seu formulario principal como MDI e os outros como MDI CHILD, ou seja, o mdi vai ficar sempre aberto o que vai alternar sa os mdi childs

abraço

t+

[Carlos Alberto Brauna]

O que eu quero é que minha aplicação fique sempre em cima de outras aplicações do windows, que nem a calculadora, se voce abrir a calculadora e colocar ela sempre visivel, e voce abrir o word (maximizado) verá que a calculadora continua na frente.

A minha aplicação, ou formulario tem que ter o mesmo comportamento, sempre acima de outras aplicações, como o excel, o internet explorer, etc...

[kuroi]

declare essa funcao:

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Function AlwaysOnTop(FrmID As Form, ByVal OnTop As Boolean) As Boolean
    Const SWP_NOMOVE = 2
    Const SWP_NOSIZE = 1
    Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
    Const HWND_TOPMOST = -1
    Const HWND_NOTOPMOST = -2
    If OnTop = True Then
        AlwaysOnTop = SetWindowPos(FrmID.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    Else
        AlwaysOnTop = SetWindowPos(FrmID.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
    End If
End Function[/code]




pra chamar faca assim:
[code]AlwaysOnTop Me, True 'deixa sempre visivel

AlwaysOnTop Me, False 'cancela o sempre visivel

[Carlos Alberto Brauna]

CARA MUITO OBRIGADO

Fiz as rotinas como acima, emeu fomulario ficou modal comoeu queria.

Muito Obrigado