Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-01-2008
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Poder: 19
Chris Va por buen camino
Hola Xio,

Lo primero que debes hacer es cambiar el código on el evento OnActivate del Form, cambialo por este otro:
Código Delphi [-]
Procedure TFormMenu.FormActivate(Sender: TObject);
Begin
SetWindowPos(Handle , HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or
          SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOREPOSITION);
end;

el segundo paso es evitar que el formulario principal se ponga en sobre los demás cuando es movido, para esto tendrás que declarar en el private el siguiente procedimiento
Código Delphi [-]
type
  TFormMenu = class(TForm)
    ....
    .......
  private
    { Private declarations }
    Procedure FormPosChanged(var Msg: TMessage); message WM_WINDOWPOSCHANGED;

El procedimiento FormPosChanged, lo implementarás así:
Código Delphi [-]
procedure TFormMenu.FormPosChanged(var Msg: TMessage);
begin
SetWindowPos(Handle,HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or
          SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOREPOSITION);
Msg.Result := 0;
end;

Con este código, ya podrás tener una ventana que siempre esté bajo las demás.

Saludos.

PD: Como a forma de cosejo, me parece que el titulo del hilo no es el adecuado. Todo indicaba que lo que querías era saber el mensaje que se envia cuando la aplicación se restaura, que en todo caso, siempre sería recomendable utilizar los códigos que los compañeros han posteado.
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web

Última edición por Chris fecha: 08-01-2008 a las 21:40:08.
Responder Con Cita
  #2  
Antiguo 09-01-2008
xio xio is offline
Miembro
 
Registrado: dic 2006
Posts: 87
Poder: 18
xio Va por buen camino
Muchisimasssssssssss Graciassssssss!

Pensaba que en esta zona del foro esta bien colocado el hilo, pero ya veo que no. De todas formas muchisimas gracias. La proxima vez intentare ubicar bien el hilo, y explicarme mejor. Por otro lado todo lo que me recomendaron los compañeros lo probé y no funcionó. Un saludo!!!
Responder Con Cita
  #3  
Antiguo 09-01-2008
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Poder: 19
Chris Va por buen camino
Cita:
Empezado por xio Ver Mensaje
Pensaba que en esta zona del foro esta bien colocado el hilo, pero ya veo que no. De todas formas muchisimas gracias. La proxima vez intentare ubicar bien el hilo, y explicarme mejor. Por otro lado todo lo que me recomendaron los compañeros lo probé y no funcionó. Un saludo!!!
Auque seguramente no vuelvas a visitar este hilo, por si acaso:
El hilo está colocado en el foro indicado. Lo que pasa es que como te había dicho, el titulo no es el adecuado, talvez hubiese sido mejor colocarle algo como por ejemplo: "Mantener ventana siempre detrás de todas" o algo así.

Saludos.
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita
  #4  
Antiguo 09-01-2008
xio xio is offline
Miembro
 
Registrado: dic 2006
Posts: 87
Poder: 18
xio Va por buen camino
Estupendo, para la proxima intentaré buscar un titulo lo mas adecuado posible. Un saludo y lo dicho muchisimas gracias a todos!!
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
No se que evento se genera xio OOP 5 17-12-2007 11:38:47
Como borrar las tablas que genera una consulta xio SQL 6 13-12-2007 10:30:07
Porque se genera un Archivo _QS** K4RL0S Varios 2 28-06-2006 00:50:00
Stored Procedure genera codigo Carlos Hurtado Firebird e Interbase 2 19-10-2005 19:38:19
¿Como elimino las tablas temporales que me genera mi Exe? IcebergDelphi Tablas planas 2 02-06-2003 15:36:32


La franja horaria es GMT +2. Ahora son las 22:56:29.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi