Discussion :

[AT]

Bonjour,

Comment faire clignoter la barre des tâches windows

merci

[Jipété]

Simplement en lisant les posts des dernières 24 h...
--
jp

[Cl@udius]

Jipété a raison, en effectuant une petit recherche tu aurais trouvé cette discussion



@+ Claudius

[AT]

ok j'avais vu le post mais comment faire clignoter toute la barre windows ?
et non l'application seulement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FlashWindow(findwindow(nil,'Project1'),true);

Par quoi faut-il remplacer 'Project1' pour que la barre win clignote ?
la solution doit etre ici ?

merci

[Coussati]

ok j'avais vu le post mais comment faire clignoter toute la barre windows ?
et non l'application seulement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FlashWindow(findwindow(nil,'Project1'),true);

Par quoi faut-il remplacer 'Project1' pour que la barre win clignote ?
la solution doit etre ici ?

merci

la barre même ? ou tout les prog de la barre ? findwindow retourne le handle de la fenetre

[AT]

La barre windows elle meme et non les prog

merci

[Cl@udius]

Honnêtement je ne pense pas qu'il existe une API Windows qui fasse cela.
Et puis dans quel but ou quel intérêt ?

@+

[scara]

Et puis dans quel but ou quel intérêt ?

Lancer une application externe et minimiser son application dans le barre de tâche : le clignotement permet de voir que l'appli et toujours là !

J' ai trouvé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not Application.Active then begin
    if Timer1.Enabled = false then
      flashwindow(application.handle, false)
    else
      flashwindow(application.handle, true);
    end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  timer1.Interval := 500;
end;

[Coussati]

ou alors dans un timer x secondes :

- faire disparaitre la barre
- la faire réaparaitre

ça clignotera non ?

[scara]

ou alors dans un timer x secondes :

- faire disparaitre la barre
- la faire réaparaitre

ça clignotera non ?

Ah oui, bonne idée !

Sinon j'ai trouvé plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not Application.Active then begin
    FlashWindow(Handle, true);
    FlashWindow(Application.Handle, true);
  end;
end;

[AT]

Bonjour,

ok merci à tous