30 respuestas en este tema

[enecumene]

Tal como lo dice el tí­tulo, tengo este siguiente procedimiento:

delphi

procedure TForm1.SongPopup;
begin
  if WindowState = wsMinimized then begin
    FPopUp := TFPopUp.Create(self);
    FPopUp.Top := Screen.Width;
    FPopUp.Left := Screen.Height - 125;
    FPopUp.Show;
  end;
end;

Pero no me funciona, es un popup que aparece cuando toca una nueva canción siempre y cuando si la aplicación o la Forma esté minimizada pero no me funciona, ¿tienen alguna mejor idea?.

Saludos.

[eduarcol]

Tal como lo dice el tí­tulo, tengo este siguiente procedimiento:

delphi

procedure TForm1.SongPopup;
begin
  if WindowState = wsMinimized then begin
    FPopUp := TFPopUp.Create(self);
    FPopUp.Top := Screen.Width;
    FPopUp.Left := Screen.Height - 125;
    FPopUp.Show;
  end;
end;

Pero no me funciona, es un popup que aparece cuando toca una nueva canción siempre y cuando si la aplicación o la Forma esté minimizada pero no me funciona, ¿tienen alguna mejor idea?.

Saludos.

Has probado este cambio??

delphi

procedure TForm1.SongPopup;
begin
  if WindowState = wsMinimized then begin
    FPopUp := TFPopUp.Create(self);
    FPopUp.Top := Screen.Width;
    FPopUp.Left := Screen.Height - 125;
    FPopUp.WindowState = wsNormal;
  end;
end;

No se si esto sirva pero prueba y avisa

[enecumene]

Pues no, no me funcionó.

Saludos.

[egostar]

Hola

Comienza por modificar el Top y el Left, están invertidos

delphi

procedure TForm1.SongPopup;
begin
  if WindowState = wsMinimized then begin
    FPopUp := TFPopUp.Create(self);
    FPopUp.Top := Screen.Height - FPopUp.Height;  // Pos asi como, jejejeje
    FPopUp.Left := Screen.Width - (FPopUp.Width + 15);
    FPopUp.WindowState = wsNormal;
  end;
end;

Salud OS

[enecumene]

Gracias bro. así­ queda mejor :$.

Estaba pensando, al estar minimizado la aplicación estoy suponiendo que el Popup también se queda minimizada, que por tal motivo no se muestre correctamente, por ello pienso, ¿es mejor crear la form desde una DLL o como un aplicativo separado donde le pase los parámetros?.

Saludos.

[egostar]

Gracias bro. así­ queda mejor :$

, así­ ni como reir 

Salud OS

[felipe]

¿es mejor crear la form desde una DLL o como un aplicativo separado donde le pase los parámetros?.

Saludos.

Pues entre ambas opciones me parece más adecuado y quizá seguro usar la dll.


Saludos!

[Caral]

Hola
Me estoy haciendo viejo, no entiendo la pregunta.
Para ver si esta minimizado yo veo en la barrita de abajo, si ta, es que esta minimizada.
Saludos

[enecumene]

Mejorando un poco el code está quedando así­:

delphi

procedure TForm1.SongPopup;
begin
    FPopUp := TFPopUp.Create(self);
    FPopUp.Top := Screen.Height - FPopUp.Height;
    FPopUp.Left := Screen.Width - (FPopUp.Width + 15);
    FPopUp.Show;
    SetForegroundWindow(FPopUp.Handle);
end;

Lo más extraño es si lo meto en un bloque:

delphi

if WindowsState = wsMinimized then..

Para que salga sólo cuando esté minimizada no funciona, ¿alguna idea?

Saludos.

[Caral]

Hola
Me extraña mucho esto:

delphi

if WindowsState = wsMinimized then..

Tengo un ejemplo para minimizar el form a la par del reloj, bueno, por ahi y no veo ese codigo.
Seguro lo conoces amigo, pero pues por si acaso aqui esta.
Saludos

Archivos adjuntos

•  742_3ee1c1f0ba3c7557ee08936482e608b90aee98b2.zip   6,87KB   2 descargas

[egostar]

Hola

Puedes hacer uso de algo como esto.

delphi

  private
    { Private declarations }
    procedure WMSysCommand(var Msg: TWMSysCommand);
        message WM_SYSCOMMAND;
 
 
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if (Msg.CmdType = SC_MINIMIZE) then begin
     Form2      := TForm2.Create(self);
     Form2.Top  := Screen.Height - Form2.Height;
     Form2.Left := Screen.Width - (Form2.Width+15);
     Form2.Show;
     SetForegroundWindow(form2.Handle);;
     self.WindowState := wsMinimized;
  end;
end;

Veo que hay algunos detalles que le veo, será cuestión de depurar el code.

Salud OS

[enecumene]

Gracias a ambos, carlos aunque eso no es lo que busco pero me será útil en la misma aplicación que estoy haciendo , viendo el code de Egostar y el tuyo hice lo siguiente:

delphi

procedure TForm1.SongPopup;
var msg: TWMSysCommand;
begin
  if (Msg.CmdType = SC_MINIMIZE) then begin
    FPopUp := TFPopUp.Create(self);
    FPopUp.Top := Screen.Height - FPopUp.Height;
    FPopUp.Left := Screen.Width - (FPopUp.Width + 15);
    FPopUp.Show;
    SetForegroundWindow(FPopUp.Handle);
  end;
end;

Pero aún no funciona, por lo que veo sirve en el momento de minimizar y no cuando está minimizado. .

Saludos.

[Caral]

Hola
Sigo sin entender que es lo que estas minimizando?.
Y que quieres hacer creando el popup de esa manera?
Explica haber si aprendo amigo.
Saludos

[enecumene]

Hola
Sigo sin entender que es lo que estas minimizando?.
Y que quieres hacer creando el popup de esa manera?
Explica haber si aprendo amigo.
Saludos

Pues claro que te explico compañero, fí­jate, realizo un player tipo Jukebox, y tiene una lista de reproducción, cuando está minimizado la aplicación, o sea, en la barra ese de abajo, cuando toca una canción nueva me debe aparecer el popup con la información de la canción siempre y cuando el estado de la aplicación esté minimizado y no maximizada, entonces, en los codes anteriores al parecer no estamos capturando el estado real de la aplicación que es el minimized, o sea:

Si la aplicación está minimizada entonces que me salga el popup

Equivalente a:

delphi

if WindowState = wsMinimized then
  Popup!;

Saludos

[eduarcol]

¡¡Momento que soy lento!!

estas preguntanto si form1 esta minimizado y luego muestras fPopUp,  porque no preguntas si la aplicacion esta minimizada???

[enecumene]

¡¡Momento que soy lento!!

estas preguntanto si form1 esta minimizado y luego muestras fPopUp,  porque no preguntas si la aplicacion esta minimizada???

¿Y qué estoy haciendo? 

[enecumene]

Bueno quise hacer una "bandera" con una variable booleana, de la siguiente manera:

delphi

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

delphi

if Minimizado then begin
   //si está minimizado el programa muestra un popup de la canción nueva
   SongPopup;
 end;

pues ella funciona, ¿problema?, ¡No me minimiza ni maximiza ni cierra la aplicación por los botones que están en la parte superior derecha sino por click en la barra!

[felipe]

¿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


Saludos!

[eduarcol]

el WMSysCommand(var Msg: TWMSysCommand); como lo declarastes...

[enecumene]

el WMSysCommand(var Msg: TWMSysCommand); como lo declarastes...

delphi

private
    { Private declarations }
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;