Necesito saber como poner un Formulario StayOnTop, para hacer un efecto
Splash al inicializar una aplicación. No pude encontrar la manera, ni con el
comando DEFINE FORM (o a lo mejor no lo estoy utilizando en la forma
correcta).
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Como poner un Formulario StayOnTop
-
Mariano Filippi
- Mensajes: 102
- Registrado: Mar Ago 15, 2006 3:28 pm
-
Yamil Bracho
- Mensajes: 64
- Registrado: Mar Jun 28, 2005 2:53 am
Como poner un Formulario StayOnTop
Puedes usar la function de SetWindowPos del Win32 API
Seria algo como :
#define HWND_TOPMOST -1
#define HWND_NOTOPMOST -2
#define SWP_NOMOVE 2
#define SWP_NOSIZE 1
#define SWP_NOACTIVATE 16
#define SWP_SHOWWINDOW 64
#define FLAGS nOr(SWP_NOMOVE, SWP_NOSIZE )
Para colocarla TOPMOST usas
ok = SetWindowPos (oForm:Handle, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
Para poderla quitar usas
ok = SetWindowPos oForm:Handle, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
"Mariano Filippi" <marianofilippi@masterisi.com.ar> escribió en el mensaje
news:[email=44e260bd@news.xailer.com...]44e260bd@news.xailer.com...[/email]
> Necesito saber como poner un Formulario StayOnTop, para hacer un efecto
> Splash al inicializar una aplicación. No pude encontrar la manera, ni con
> el comando DEFINE FORM (o a lo mejor no lo estoy utilizando en la forma
> correcta).
>
>
Seria algo como :
#define HWND_TOPMOST -1
#define HWND_NOTOPMOST -2
#define SWP_NOMOVE 2
#define SWP_NOSIZE 1
#define SWP_NOACTIVATE 16
#define SWP_SHOWWINDOW 64
#define FLAGS nOr(SWP_NOMOVE, SWP_NOSIZE )
Para colocarla TOPMOST usas
ok = SetWindowPos (oForm:Handle, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
Para poderla quitar usas
ok = SetWindowPos oForm:Handle, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
"Mariano Filippi" <marianofilippi@masterisi.com.ar> escribió en el mensaje
news:[email=44e260bd@news.xailer.com...]44e260bd@news.xailer.com...[/email]
> Necesito saber como poner un Formulario StayOnTop, para hacer un efecto
> Splash al inicializar una aplicación. No pude encontrar la manera, ni con
> el comando DEFINE FORM (o a lo mejor no lo estoy utilizando en la forma
> correcta).
>
>
Como poner un Formulario StayOnTop
Mariano,
> Necesito saber como poner un Formulario StayOnTop, para hacer un efecto
> Splash al inicializar una aplicación. No pude encontrar la manera, ni con
> el comando DEFINE FORM (o a lo mejor no lo estoy utilizando en la forma
> correcta).
El estilo bsSPLASH ya tiene implícito el estilo StayOnTop. Sólo tienes que
declararlo en el propio comando:
DEFINE FORM .... BORDERSTYLE bsSPLASH
--
Un saludo,
José F. Giménez
http://www.xailer.com
> Necesito saber como poner un Formulario StayOnTop, para hacer un efecto
> Splash al inicializar una aplicación. No pude encontrar la manera, ni con
> el comando DEFINE FORM (o a lo mejor no lo estoy utilizando en la forma
> correcta).
El estilo bsSPLASH ya tiene implícito el estilo StayOnTop. Sólo tienes que
declararlo en el propio comando:
DEFINE FORM .... BORDERSTYLE bsSPLASH
--
Un saludo,
José F. Giménez
http://www.xailer.com