Discussion :

[pp]

Bonjour,

Comment faire pour qu'une icône de la barre de tâche passe en surbrillance ?

Idée:
Un programme exécute un long traitement en tâche de fond.
Lorsque le traitement est terminé, l'icône de la barre de tâche passe en surbrillance sans que le programme passe au premier plan.

A+

Pascal

[Reisubar]

Tu veux parler du clignotement de la fenêtre ?

Si oui, utilises l'API FlashWindow :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/debug/base/flashwindow.asp

[PyRoFlo]

Je pense que pp parle de l'effet clignotement rouge identique à celui émis lorsqu'on reçoit un message dans une convesation MSN Messenger non ?

Si oui, ça m'intéresse !

J'ai testé FlashWindow(), mais cela ne produit pas cet effet

[Reisubar]

Montre ton code...

J'avais fait cet objet pour gérer le clignotement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
TFlasher = class 
     private 
      FTimer : TTimer; 
      FHandle : Cardinal; 
      procedure DoFlash(Sender : TObject); 
     public 
      procedure StartNotify; 
      procedure EndNotify; 
      constructor Create(ObjectToFlash : TWinControl; AInterval : Cardinal = 500); 
      destructor Destroy; 
  end; 
 
{ TFlasher } 
 
procedure TFlasher.DoFlash(Sender : TObject); 
begin 
    FlashWindow(FHandle,True); 
end; 
 
constructor TFlasher.Create(ObjectToFlash : TWinControl; AInterval: Cardinal); 
begin 
   FTimer := TTimer.Create(nil); 
   FTimer.Enabled := False; 
   FTimer.Interval := AInterval; 
   FTimer.OnTimer := DoFlash; 
   FHandle := ObjectToFlash.Handle; 
end; 
 
destructor TFlasher.Destroy; 
begin 
   FTimer.Free; 
end; 
 
procedure TFlasher.EndNotify; 
begin 
  FTimer.Enabled := False; 
  FlashWindow(FHandle,False); 
end; 
 
procedure TFlasher.StartNotify; 
begin 
  FTimer.Enabled := True; 
  DoFlash(nil); 
end;

Tu appelles StartNotify pour commencer le flashage et EndNotify pour arrêter.

[PyRoFlo]

Merci Reisubar, la classe !

Je teste ça...

[PyRoFlo]

Désolé de déterrer le post...

J'ai testé ta classe et, en effet la fenêtre clignote, seulement moi j'étais intéressé par le clignotement orange/rouge dans la barre des tâches d'une instance d'une fenêtre.

Tu vois ?