Comment faire clignoter une form dans la barre des taches

Question

Tout est dans le titre :
'Comment faire clignoter une form dans la barre des taches"

~Art~ (saying to be the chikenkiller)

cs_Kenavo · Answer

Salut,
Essaie la fonction FlashWindow de l'API
Kenavo

Code, Code, Codec !

TheChikenKiller · Answer

Oula, tu parles grec ?
Je suis un peu un n00b dans certaines fct de delphi :-}

~Art~ (saying to be the chikenkiller)

DRJEROME · Answer

Bon, Code, Code, Codec a raison.

Un exemple avec un button et un timer :

procedure TForm1.Button1Click(Sender: TObject);
begin
     timer1.Enabled:=true;

FlashWindow(findwindow(nil,'Project1'),true);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
      FlashWindow(findwindow(nil,'Project1'),true);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     timer1.Enabled:=false;
     timer1.Interval:=225;
end;


DrJerome JROD DorotheeJ

DRJEROME · Answer

à la place de Project1 tu mets le nom de ton programme comme il apparraît dans la barre des tâche (toolbar)

DrJerome

cs_Kenavo · Answer

et tu mets 

FlashWindow(findwindow(nil,'Project1'),False);


pour rétablir l'affichage normal si tu veux arrêter le clignotement.

Kenavo

Code, Code, Codec !

Comment faire clignoter une form dans la barre des taches

5 réponses

Votre réponse