Hacer un formulario de "siempre visible"
Cómo hacer un formulario de permanecer siempre visible en la parte superior de otras formas
Hacer un formulario de 'siempre visible'
Para hacer un formulario siempre visible por encima de otras formas, ya sea que pertenezcan a la misma aplicación, así como otras aplicaciones, podemos cambiar la propiedad FormStyle a fsStayOnTop. Más tarde podemos volver a la normalidad mediante el establecimiento de FormStyle a fsNormal. Sin embargo, el cambio de la propiedad FormStyle en tiempo de ejecución no es recomendable. En lugar de ello, debemos utilizar la función API de Windows SetWindowPos, pasando HWND_TOPMOST como segundo parámetro para activar el efecto de:
procedure TForm1.Button1Click(Sender: TObject)
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp SetWindowPos(Mango, HWND_TOPMOST, 0, 0, 0, 0,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp SWP_NOMOVE SWP_NOSIZE)
& nbsp & nbsp final
Para desactivar este efecto, llamamos SetWindowPos de nuevo, esta vez pasando WND_NOTOPMOST como segundo parámetro:
procedure TForm1.Button2Click(Sender: TObject)
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp SetWindowPos(Mango, WND_NOTOPMOST, 0, 0, 0, 0,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp SWP_NOMOVE SWP_NOSIZE)
& nbsp & nbsp final
Hacer un formulario de "siempre visible"
Hacer un formulario de "siempre visible" : Multi-millones de consejos para hacer su vida mas facil.
Como hacer un formulario de permanecer siempre visible en la parte superior de otras formas
Hacer un formulario de 'siempre visible'
Para hacer un formulario siempre visible por encima de otras formas, ya sea que pertenezcan a la misma aplicacion, asi como otras aplicaciones, podemos cambiar la propiedad FormStyle a fsStayOnTop. Mas tarde podemos volver a la normalidad mediante el establecimiento de FormStyle a fsNormal. Sin embargo, el cambio de la propiedad FormStyle en tiempo de ejecucion no es recomendable. En lugar de ello, debemos utilizar la funcion API de Windows SetWindowPos, pasando HWND_TOPMOST como segundo parametro para activar el efecto de:
procedure TForm1.Button1Click(Sender: TObject)
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp SetWindowPos(Mango, HWND_TOPMOST, 0, 0, 0, 0,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp SWP_NOMOVE SWP_NOSIZE)
& nbsp & nbsp final
Para desactivar este efecto, llamamos SetWindowPos de nuevo, esta vez pasando WND_NOTOPMOST como segundo parametro:
procedure TForm1.Button2Click(Sender: TObject)
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp SetWindowPos(Mango, WND_NOTOPMOST, 0, 0, 0, 0,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp SWP_NOMOVE SWP_NOSIZE)
& nbsp & nbsp final
Hacer un formulario de "siempre visible"
By Consejos Y Trucos
Hacer un formulario de "siempre visible" : Multi-millones de consejos para hacer su vida más fácil. 