Ver Mensaje Individual
  #7  
Antiguo 02-09-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola de nuevo Choclito, no me había fijado que pasaba eso, al parecer es normal ya que no estamos minimizando la aplicación sino ese formulario, para minimizar la aplicación podemos usar estos dos codigos.

Código Delphi [-]
 //Este
 Application.Minimize;
 //O este
 ShowWindow(Application.Handle, SW_MINIMIZE);

Ahora sería capturar el evento cuando se realiza minimizar, lo que se me ha ocurrido primero es utilizar ApplicationEvent y su evento OnMinimize, pero no me ha funcionado. Capturando el mensaje WM_SYSCOMMAND, si funciona, aquí esta el ejemplo.

Código Delphi [-]
 
 procedure SYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
 ...........
 ...........
 procedure TForm2.SYSCOMMAND(var Msg: TMessage);
 begin
   if Msg.wParam = SC_MINIMIZE then
     //Aquí colocas cualquiera de los dos codigos de arriba
    ShowWindow(Application.Handle, SW_MINIMIZE)
  else
   Inherited;
end;

Eso lo pones en tus formularios que no sean el formulario principal. Si hay otra forma, ya nos van corregir los amiguitos.

Me alegra que te estes mejorando , a mi las motos me asustan la unica vez que subi, me he llevado un susto , como para que nunca mas suba a una, te comento también que soy amiga no amigo .

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.

Última edición por Caro fecha: 03-09-2008 a las 00:35:10.
Responder Con Cita