Como Deixar Um Form Sempre Em Foco?

[Evandro Fontes]

Tipow, eu tenho um form que mostra o cadastro dos clientes, e esse form fika maximizado, mas quando clico em buscar.. ele carrega outro form menos, qe fica centralizado na tela, mas quando eu clico em algum lugar do form de cadastro, o form de busca se "esconde" atrás do form de cadastro... tem algum código para fazer o form de busca ficar sempre em foco !?!?!?

[Joaozava]

Faça assim pra chamar o form de busca

FormdeBusca.Show 1

acho que vai resolver!

[PiGmEu]

Insira um modulo no seu Projeto e coloque a API assim:

Option Explicit
      Public Const SWP_NOMOVE = 2
      Public Const SWP_NOSIZE = 1
      Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
      Public Const HWND_TOPMOST = -1
      Public Const HWND_NOTOPMOST = -2

      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

      Public Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) _
         As Long

         If Topmost = True Then 
            SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, _
               0, FLAGS)
         Else
            SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, _
               0, 0, FLAGS)
            SetTopMostWindow = False
         End If
      End Function

Ai no Active do seu Form coloque o comando:

Dim lR As Long
lR = SetTopMostWindow(me.hwnd, True)

[]´s

[TBANet]

Cara a maneira mais fácil e muito eficiente é falar que o form é modal, para fazer isso não precisa desses códigos grandes.Basta fazer o seguinte.

Caso você esteja usando um MDI abra sua tela de busca, veja a propriedade MDIChild e coloque FALSE.

Certo após fazer isso no componente onde você chama esse formulário de pesquisa coloque este código:

form.Show 1 'o 1 informa que esse form é modal e nada soprepoe ele.

Espero que isso ai te ajude.

Tiago

[Evandro Fontes]

Insira um modulo no seu Projeto e coloque a API assim:

Option Explicit
      Public Const SWP_NOMOVE = 2
      Public Const SWP_NOSIZE = 1
      Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
      Public Const HWND_TOPMOST = -1
      Public Const HWND_NOTOPMOST = -2

      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

      Public Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) _
         As Long

         If Topmost = True Then 
            SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, _
               0, FLAGS)
         Else
            SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, _
               0, 0, FLAGS)
            SetTopMostWindow = False
         End If
      End Function

Ai no Active do seu Form coloque o comando:

Dim lR As Long
lR = SetTopMostWindow(me.hwnd, True)

[]´s

Deu certo assim, VAleu cara !!!!

Tio moderador, se quiser trancar o tópico, sinta-se a vontade, minha duvida foi plenamente resolvida !!

[Evandro Fontes]

Cara a maneira mais fácil e muito eficiente é falar que o form é modal, para fazer isso não precisa desses códigos grandes.Basta fazer o seguinte.

Caso você esteja usando um MDI abra sua tela de busca, veja a propriedade MDIChild e coloque FALSE.

Certo após fazer isso no componente onde você chama esse formulário de pesquisa coloque este código:

form.Show 1 'o 1 informa que esse form é modal e nada soprepoe ele.

Espero que isso ai te ajude.

Tiago

Cara, fiz do seu jeito e deu certo.. tipow, tem o parametro MODAL, e um outro... OwnerForm eu achu.. para que serve este ultimo ?!?!?!?

PS. esse simples codigo facilita muito a vida!!!

valeu de novo!

[William Rodrigues]

Tio moderador, se quiser trancar o tópico, sinta-se a vontade, minha duvida foi plenamente resolvida !!

tio

Vou esperar prá ver se alguém responde essa sua última dúvida e aí qualquer coisa eu fecho o tópico

Abraços,

William Rodrigues

[Evandro Fontes]

Tio moderador, se quiser trancar o tópico, sinta-se a vontade, minha duvida foi plenamente resolvida !!

tio

Vou esperar prá ver se alguém responde essa sua última dúvida e aí qualquer coisa eu fecho o tópico

Abraços,

William Rodrigues

eu tentei editar o outro post ,ams não consegui

foi malz, eu me precipitei pedindo pra fechar o tópico.... falha minha.. foi malz

[William Rodrigues]

eu tentei editar o outro post ,ams não consegui 

foi malz, eu me precipitei pedindo pra fechar o tópico.... falha minha.. foi malz

Ihhh

Relaxa...

Esquenta com isso não brother

Abraços,

William Rodrigues