Ver Mensaje Individual
  #1  
Antiguo 13-06-2005
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Reputación: 22
JXJ Va por buen camino
Question forma siempre visible.

'¿como puedo lograr que mi forma este siempre visible.?

he estado probando con lo siguiente compila una parte y
no da el resultaod deseado la forma se sigue ocultando , cuando
cambio a otra ventana o programa.,

esto de abajo lo encontre en latium software de aqui
http://www.latiumsoftware.com/es/pascal/0025.php
Para que un formulario se mantenga siempre visible por encima de otros
formularios, tanto pertenecientes a la misma aplicación como a otras
aplicaciones, podemos establecer el valor de la propiedad FormStyle en
fsStayOnTop. Si luego deseáramos volver el formulario a la normalidad,
podemos establecer FormStyle en fsNormal. Sin embargo, modificar el
calor de la propiedad FormStyle en tiempo de ejecución no se recomienda.
En vez de ello, podemos usar la función SetWindowPos de la API de
Windows pasándole HWND_TOPMOST como segundo parámetro para activar el
efecto:
Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  begin
    SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0,
      SWP_NOMOVE + SWP_NOSIZE);
  end;
Para desactivar este efecto, volvemos a llamar a SetWindowPos, esta vez
pasándole WND_NOTOPMOST como segundo parámetro:
{este codigo me da problemas. con lo de WND_NOTOPMOST}
  procedure TForm1.Button1Click(Sender: TObject);
  begin
    SetWindowPos(Handle, WND_NOTOPMOST, 0, 0, 0, 0,
      SWP_NOMOVE + SWP_NOSIZE);
  end;
----------------
La ventana que quiero este siempre visible es una creada modalmente.,

vale gracias por su atención
Responder Con Cita