• Viernes 8 de Noviembre de 2024, 15:49

Autor Tema:  Colocar Formularios Por Encima De Cualq Programa  (Leído 2401 veces)

ldvgsmca

  • Nuevo Miembro
  • *
  • Mensajes: 17
    • Ver Perfil
Colocar Formularios Por Encima De Cualq Programa
« en: Jueves 15 de Febrero de 2007, 17:22 »
0
Necesito saber si existe algun programa que este colocado por encima de mi formulario, si es asi necesito colocar mi formulario siempre por encima



se que esto tiene que ver con una funcion de la API

aicrag

  • Miembro activo
  • **
  • Mensajes: 26
    • Ver Perfil
Re: Colocar Formularios Por Encima De Cualq Programa
« Respuesta #1 en: Viernes 16 de Febrero de 2007, 00:04 »
0
claro que existe, y tenés razón tiene que ver con API:

Código: Text
  1.  
  2. Public 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
  3.  
  4. Public Const SWP_NOSIZE = &H1
  5. Public Const SWP_NOMOVE = &H2
  6. Public Const SWP_NOACTIVATE = &H10
  7. Public Const SWP_SHOWWINDOW = &H40
  8. Public Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
  9.  
  10.  

ahora solo tenés que pasarle el Hwnd de la ventana que querés tener por encima de las demás..

p.ej.. en el Load de un formulario hacés esto:
Código: Text
  1.  
  2. SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, SWP_FLAGS
  3.  
  4.  

y con esto tenés tu formulario por encima de todos los demás....  B)
El sabio no es aquel que sabe donde esta el tesoro, sino el que trabaja y lo saca

ldvgsmca

  • Nuevo Miembro
  • *
  • Mensajes: 17
    • Ver Perfil
Re: Colocar Formularios Por Encima De Cualq Programa
« Respuesta #2 en: Viernes 16 de Febrero de 2007, 19:20 »
0
Cita de: "aicrag"
claro que existe, y tenés razón tiene que ver con API:

Código: Text
  1.  
  2. Public 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
  3.  
  4. Public Const SWP_NOSIZE = &H1
  5. Public Const SWP_NOMOVE = &H2
  6. Public Const SWP_NOACTIVATE = &H10
  7. Public Const SWP_SHOWWINDOW = &H40
  8. Public Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
  9.  
  10.  

ahora solo tenés que pasarle el Hwnd de la ventana que querés tener por encima de las demás..

p.ej.. en el Load de un formulario hacés esto:
Código: Text
  1.  
  2. SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, SWP_FLAGS
  3.  
  4.  

y con esto tenés tu formulario por encima de todos los demás....  B)
gracias, realmente eso es lo que necesito y funciona muy bien




.......



mientras mas veo mas aprendo

_Edwin90

  • Nuevo Miembro
  • *
  • Mensajes: 11
    • Ver Perfil
Re: Colocar Formularios Por Encima De Cualq Programa
« Respuesta #3 en: Jueves 24 de Mayo de 2007, 02:15 »
0
:comp:  ke bien esta funcion la estuve buscando desde hace mucho gracias..
 B)