19 respuestas en este tema

[cadetill]

Buenas,

Según tengo entendido, para hacer parpadear una aplicación en la barra de tareas se necesita hacer uso de la api FlashWindow. Pues bien, soy incapaz de que me funcione en un XP Home (no he probado en otro SO aun).

Lo que he hecho es poner un timer con 500ms y la instrucción

delphi

procedure TMainFrm.tFlashTimer(Sender: TObject);
begin
  FlashWindow(Application.Handle, True);
end;

Alguna sugerencia?

Gracias

Nos leemos

[egostar]

Hola

Que no es así

delphi

  FlashWindow(Form1.Handle, True);

Salud OS

[Delphius]

Hola,

No conozco esa API, yo tenía entendido que se realiza con la API AnimateWindow. 

Ejemplo:

delphi

AnimateWindows(Form1.Handle, 500, AW_CENTER);

NOTA: No he probado el code, no tengo Delphi abierto en este momento  Ha sido escrito medio al voleo.

Saludos,

[Delphius]

Perdón... AnimateWindows no hace eso... 

NO es el efecto titilante en la barra.
Lo que tu buscas amigo es algo como el efecto del Messenger, que titila la ventana de conversación cuanto está minimizada.

Umm... déjame pensarlo. Estaba seguro de que esto se conseguía con AnimateWindows.

Por otro lado FlashWindows lo que hace es "titilar" la ventana una sola vez. Se ve un efecto de cambio en la barra de título... cambia a como si pasara a segundo plano y volviera a estar al frente.
Su uso es como menciona Eliseo.

Saludos,

[Delphius]

Pues después de hacer una búsqueda llegué a que el código de Cadetill debería funcionar.

Así es como funciona:

delphi

FlashWindow(Application.Handle, true);

Se debe hacer uso de un timer si se desea que sea ininterrumpido.
Según la MSDN funciona en Windows 2000 en adelante. Lo que quizá tenga que ver es si está habilitada la opción de efectos visuales, o "temas" para ser exacto. Quizá pase por allí la cosa.

Saludos,

[egostar]

Bueno, ejecuté ambos códigos en diferentes SO's

Windows XP

Application.Handle nada se movió
Form1.Handle se veía el parpadeo en la barra de Herramientas

Windows Vista

Application.Handle se veía el parpadeo en la barra de Herramientas
Form1.Handle se veía el parpadeo en la forma pero no en la barra de herramientas

Salud OS

[Delphius]

Ummm  ... Pues podría jurar a que en XP funciona... La imagen no miente amigo.
¿Tendrá que ver que uso la versión Profesional y temas habilitados? 

Saludos,

PD: Perdón por el bmp y el tamañote... es la fatiga de no pasarla a png y hacerla más chica. 

Archivos adjuntos

•  1835_596d5399bec051f06024194bbc2b51203bd15ad0.bmp   2,25MB   12 descargas

[Caral]

Hola
No sabia que usabas delphi 6 como yo 
Como me gusta......
Saludos
PD: Ahora seguid, que estoy aprendiendo.

[egostar]

Pruebas

Windows Vista, Turbo Delphi 2006

Salud OS

Archivos adjuntos

•  1839_db5de8b09f563e7f217aa4ab4307d9d4af3e9548.jpg   133,35KB   6 descargas
•  1837_7f9b4154af47adf9b8159308ada72a67a66b97fd.jpg   131,27KB   7 descargas

[egostar]

Pruebas

Windows Vista, Delphi XE

Salud OS

Archivos adjuntos

•  1843_6d7b49e299ad7275d2e6bdb28f9d28242eec8a82.jpg   129,62KB   7 descargas
•  1841_6ee9652a2218be592b62393e64bf5829216094e7.jpg   129,01KB   5 descargas

[Delphius]

¡Sopas! 
Si que está raro esto...

En uno te titila con el ApplicationHandle y en otro con el Form1.Handle. O yo vi cualquier cosa...

A me titila con el Application. Con Form1 no hace eso, sino que titila la ventana alternando entre con-foco, sin-foco.
En cambio con Application hace dichosamente el efecto.

Prueba en ambos SO de esta manera:

delphi

FlashWindow(Form1.Handle; true);
FlashWindow(Application.Handle; true);

Es decir con ambas instrucciones. Con ello se debería obligar a forzar a animar de ambas maneras... a ver que resulta. Se que puede parecer chapuza... pero en una de esas...

Saludos,

[egostar]

A mi me parece que esto tiene que ver con la propiedad del VCL, TApplication.MainFormOnTaskbar que salió a partir de Delphi 2007.

Salud OS

[egostar]

Pues si, ese es el punto

The new VCL property TApplication.MainFormOnTaskbar in Delphi 2007
marzo 27 2007 6:06a.m.

In Delphi 2007, one of the changes we made in VCL was to provide better support for Window Vista, particularly in relation to window animations which occur when your application is minimized, restored or closed. Nathanial Woolls has a good write-up on some of the related issues.

Enlace

Salud OS

[Delphius]

Vaya... lo que te puede llevar a ocasionar una simple propiedad.

Y yo que ya estaba lanzando algunas palabrotas a los de Mocosoft. Ufa... me cortaste la alegría de darles en donde no les da el sol. 

Aunque... después de todo... según el artículo parte de la culpa es del Vista... así que ... ******

Saludos,
PD: Yo creería que esa propiedad se implementó en D7

[cadetill]

Buenas,

Pues sí que ha dado de sí el tema

Conocía la propiedad (por haberla visto en el código, no por nada más) pero la verdad es que no me había parado nunca a ver qué hacía

Hoy haré alguna prueba y ya os comento el resultado en un XP Home

Muchas gracias

[escafandra]

Quizás el problema está en localizar bien la ventana de la aplicación. La pruebas que he hecho funcionan con Application.Handle.
Form1.Handle hace parpadear la barra caption.

Puede ser interesante probar algo así:

delphi

var
  HW: THandle;
begin
  HW:= FindWindow('TApplication', PCHAR(Application.Title));
  FlashWindow(HW, true);
end;

Saludos.

[egostar]

Pues no, tampoco funciona con IDE's que utilizan la propiedad Application.MainFormOnTaskbar.

Por omisión se agrega la propiedad con valor = true, hacemos un pequeño cambio

delphi

  Application.MainFormOnTaskbar := False;

Bingo!!!!, ya funciona el Aplication.Handle

Salud OS

[egostar]

De la ayuda de Delphi

The MainFormOnTaskBar property controls how Windows taskbar buttons are handled by VCL.

If the property is true, a taskbar button represents the application's main form and displays its caption. If false, a taskbar button represents the application's (hidden) main window and bears the application's Title.

Enlace

Salud OS

[cadetill]

Buenas,

Bueno, he realizado pruebas con lo que me habéis comentado todos. El resultado es el siguiente.

Como bien dice el amigo egostar, el culpable de todo es la propiedad MainFormOnTaskBar. Si esta propiedad está en true (valor por defecto), lo que se visualiza en la barra de tareas es el form principal (y su caption), con lo que si queremos ese comportamiento tendremos que usar el FlashWindow con el handle del form. En cambio, si lo que queremos es que nos salga el título de la aplicación, deberemos poner en false dicha propiedad y entonces usar el handle de la aplicación.

Es decir:
FlashWindow(Application.Handle, True);
funciona con
Application.MainFormOnTaskBar := False;

y

FlashWindow(Form1.Handle, True);
funciona con
Application.MainFormOnTaskBar := True;

Con esta segunda opción, también hacemos parpadear la barra de título de la ventana principal. Como el efecto ya me gusta, es la que he escogido.

Pues gracias a todos

Nos leemos

PD: la solución del amigo escafandra tiene el mismo comportamiento que usar el handle de la aplicación.

[egostar]

Pues ya podemos colocar este hilo como resuelto

Salud OS