30 replies to this topic

[Caral]

Hola
Pregunto:
Como añado un item al popup?
Solo me falta eso.
Saludos

[eduarcol]

segun puedo ver y en mis pocos conocimientos, el procedure debe estar interrumpiendo el mensaje, y seguro esta esperando que este vuelva a ser asignado...

lo que no se es como codificarlo... y cual seria la variable que recibe el mensaje.

[enecumene]

¿Y porque no dejar que el popup funcione también con la ventana maximizada?... asi como trabaja Winamp por ejemplo, es una idea, no por dejar el code, sino por cuestiones de usabilidad

Es que me gustarí­a ambas opciones, o sea, dar la facilidad al usuario de elegir si quiere que se vea el popup estando de ambas formas o sólo minimizado.

Saludos.

[eduarcol]

segun puedo ver y en mis pocos conocimientos, el procedure debe estar interrumpiendo el mensaje, y seguro esta esperando que este vuelva a ser asignado...

lo que no se es como codificarlo... y cual seria la variable que recibe el mensaje.

delphi

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if Msg.CmdType = SC_MINIMIZE then
    Minimizado := True
  else
    Minimizado := False;
   inherited;
end;

faltaba que colocaras el inherited; para que se ejecute el resto del metodo :D

[Caral]

Hola
Bueno, aunque no me hacéis nada de caso he seguido insistiendo.
En este ejemplo modificado puse un timer para hacer la prueba.
Lo que hace es que al estar minimizado el form en cinco segundos exactamente en la posicion del raton sale el popup, osea avisa.
A ver si te sirve de algo amigo, ya se que es de novato pero hago el intento.
Saludos

Attached Files

•  743_e562055d119cab857f9d47edb9e5e06ac69e993a.zip   198.22KB   7 downloads

[pcicom]

Existe un componente llamado msnpopup, es muy simple de utilizar y no importa si esta minimizada, maximizada u oculta tu aplicacion...


MSNPOPUP..

Como no encontre como anexar archivo...  te lo devo o mandame un correo y te lo envio..
joseph@pcicom.net

[enecumene]

delphi

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if Msg.CmdType = SC_MINIMIZE then
    Minimizado := True
  else
    Minimizado := False;
   inherited;
end;

faltaba que colocaras el inherited; para que se ejecute el resto del metodo :D

Vale haré las pruebas , luego os comento, amigo Caral, habí­a dicho que a pesar de no ser lo que ando buscando me será útil para otro tipo de vento en la misma aplicación , amigo PCicom, muchas por el componente, aquí­ hay una zona de descargas disponible donde podrás anexar el componente, puedes subirla aquí­.

Saludos.

[enecumene]

Hice las pruebas de ensayo ya que no tengo mi aplicacií­n aquí­, y pues sí­, ahora sí­ minimiza, maximiza, Restaura y Cierra a través de los botones superiores derecho, muchas gracias eduarcol, ahora tengo otra pregunta relacionada, cuando está minimizada ya saben que hay darle click en la barra y/o a través contextual, quisiera saber cómo capturar esa acción.

Saludos.

[JoAnCa]

Hola enecumene
Ya resolviste tu problema?, igual te interese esta unit que hace que aparezca un popup estilo MSN, es de nuestro amigo dec de Clubdelphi

delphi

unit UMsgPopup;
 
interface
 
uses
  Forms, StdCtrls, Windows, Classes, Graphics;
 
procedure MsgPopup(const msg: string; const wait: integer);
 
implementation
 
procedure MsgPopup(const msg :string; const wait: integer);
 var
 i,max  :integer;
 lbMsg  :TLabel;
 fmMsg  :TForm;
 panel  :TRect;
 
begin
 fmMsg:=TForm.Create(nil);
 try
   with fmMsg do  // El Formulario
    begin
     Color:=clWhite;
     Caption:=' '+msg;
     SystemParametersInfo(48, 0, @panel, 0);
     Width:=350; Height:=110;
     Top:=panel.Bottom; Left:=panel.Right-fmMsg.Width-2;
     BorderStyle:=bsToolWindow;
     FormStyle:=fsStayOnTop;
     lbMsg:=TLabel.Create(fmMsg);
     max:=panel.Bottom-fmMsg.Height-2;
     with lbMsg do    // La Etiqueta
       begin
         Top:=30; Left:=10;
         Height:=30;
         Parent:=fmMsg;
         AutoSize:=false;
         Caption:=msg;
         Font.Size:=14;
         Font.Name:='Arial';
         Font.Color:=clRed;
         Alignment:=taCenter;
         Font.Style:=[fsBold];
         Width:=fmMsg.Width;
       end ;
     Show;
     i:=Top;
     while(i >= max)do
       begin
         Top:=i;
         Dec(i,2);
         Refresh;
       end;
    end;
 finally
   Sleep(wait);
   fmMsg.Free;
 end;
end;
 
end.

Solo te quedarí­a adecuarla un poco si no se ajusta exactamente

[enecumene]

Gracias JoAnca, lo probaré luego.

Saludos.

[enecumene]

Amigos, ¿algunos de ustedes conocen el mensaje de la API que indica que he maximizado la aplicación desde la barra de tareas?, ya sea desde el menú o haciendo click.