Discussion :

[Coussati]

salut

j'aimerais après un évènement choisit (lorsque qqun écrit dans le tchat alors que notre programme n'est aps au premier plan) qu'il clignote en orange dans la barre des taches comme le font msn et irc

biensur une fois avoir mis le prog au premier plan, le clignotement arretera

merci

[ero-sennin]

Salut,

Voici un petit exemple pour faire clignoter la barre des taches de ton programme.

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
procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled:=false;
  // Réglage de l'intervalle pour le clignotement
  Timer1.Interval:=800;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=true;
  // On lance le clignotement
  FlashWindow(findwindow(nil,'Project1'),true);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  // On arrête le clignotement
  Timer1.Enabled:=false;
  FlashWindow(findwindow(nil,'Project1'),false);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FlashWindow(findwindow(nil,'Project1'),true);
end;

Project1 est le nom qui s'affiche dans la barre de titre de ton application.

En espérant t'avoir aidé.
A+

[Coussati]

nikel ! c'est ce qu'il me fallait !

juste une chose, comment peut on savoir si notre application est au premier plan ?

j'allais faire un test dans un timer : si pas au premier plan, clignoter

[ero-sennin]

Salut,

Dans le timer, tu peux faire une chose c'est récupérer le handle de la fenêtre active et voir si c'est le même que ton application.

Je te propose un morceau de code non testé :

Code :

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

1
2
3
4
if (Self.Handle=GetForegroundWindow) then
begin
 // instruction
end;

Avec ça je pense que ça devrait aller.
A+

[Coussati]

wai c'est cool ^^

thx

[Coussati]

j'ai un prob :

j'utilise mon programme, donc logiquement il est en 1er plan non ?

pourtant dans un timer je met :

Memo1.Lines.Add(inttostr(application.Handle));
Memo1.Lines.Add(inttostr(GetForegroundWindow));

et le handle de mon application est tjrs différent de celui de la fenetre du 1er plan ... mon but étant d'arréter le timer une fois que mon appli est au 1er plan (utilisé par luser)

[Jipété]

et le handle de mon application est tjrs différent de celui de la fenetre du 1er plan ...

Normal : l'application c'est une chose, la fenêtre c'est autre chose. Donc 2 handles différents. À toi de choisir le bon.
Mes 2 cts,
--
jp

[Coussati]

waip mais finalement c meme pas sa mon prob

quand j'arrete le flash je met false, bin ça reste tjrs orange, il faut avec la souris clické dessus genre pour minimiser et après lorange part

jai testé avec msn, des qu'on click direct ça part

peut être il y a un évènement spécial ? genre lorsqu'on click sur l'appli minimisé ?

[Linkin]

et avec

Code :

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

1
2
3
4
5
6
 
  {Handle : Handle de la fenetre à activer}
  { Restaurer l'application si minimisée }
  ShowWindow(Handle, SW_RESTORE);
  { Mettre la première instance en premier plan : }
  SetForegroundWindow(Handle);

?

[Coussati]

non c'est pas ça

imagine je fais un tchat comme msn

il faut que lorsque je maximise (je lcick dessus) que le flash orange dissparraise

[scara]

Code :

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

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

la variable "evenement" est un boolean vrai avec ta condition.

[Coussati]

ton code n'est pas bon, c beaucoup plus sérieu que ça

regarde un exemple que j'ai fais :

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
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  application.Minimize;
  timer1.Enabled := true;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 
 
Memo1.Lines.Add(inttostr(form1.Handle));
Memo1.Lines.Add(inttostr(GetForegroundWindow));
 
 
  if GetForegroundWindow <> form1.Handle then
  begin
    FlashWindow(application.Handle,true);
    Memo1.Lines.Add('okkkkkkkkkkk');
  end;
 
end;

quand jutilise mon prog il entre au 1er plan donc le timer stop; MAIS il reste "lorange" ce que je veux supprimer

il suffit de tester avec msn et vous verrez comment msn fonctionne

il faut que les 2 stop : flash + couleur orange

[Coussati]

salut

j'avais posté initialement dans débutant, pensant que j'aurai trouvé facilement et rapidement la réponse; mais vu comme ça se corse, je préfère tout réexpliquer ici

donc pour commencer, c'est pour un tchat, comme msn : une fois qu'un membre parle, alors que le fenetre n'est pas visible (1er plan) le flashing (orange) doit d'activer; une fois au 1er plan DIRECTEMENT ce flashing doit cesser et l'orange disparait

c'est pas si évident que ça en à l'air, parce qu'après plusieurs test, on a réussit à arréter le flashing mais l'orange reste jusqu'au prochain refresh (ce qui n'est pas normal)

pour faire simple, vous n'avez pas ma source donc utilison une autre :

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
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  application.Minimize;
  timer1.Enabled := true;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 
  if GetForegroundWindow <> form1.Handle then
  begin
    FlashWindow(application.Handle,true);
    Memo1.Lines.Add('okkkkkkkkkkk');
  end;
 
end;

quepeut on faire pour améliorer ?

P.S : si vous n'avez pas bien compris, regardez du coté de msn quand un contact vous parle, une fois clickez sur la fenetre l'orange par directe !

[Coussati]

alors ? toujours personnes ?

[Aka Guymelef]

Et bien comme l'a montré Ero-Senin, on peut demander à une fenêtre de clignoter, mais on peut aussi lui demander d'arrêter de clignoter. Je penses donc que dès que ta fenêtre revient au premier plan, tu dois appeler explicitement l'API pour arrêter le clignotement.

[Coussati]

oui ça arrête de clignoter ... mais du faite que ça clignotait déjà, la couleur orange reste ...

de toute façon ceux qui répondent ne prennent même pas le teps de tester(à peine 10 lignes de code) donc vous ne comprendrez jamais c'et quoi exactement le prob ...

[Linkin]

La solution que j'ai donnée convient à partir de XP. Et c'est comme ça que fonctionne MSN ! Teste tu verras ...

Si on fait un SetForegroundWindow sur une fenêtre non active, elle clignote en orange. Elle s'arrête au bout d'un moment par contre. Cela ne marche pas en Windows 98

Sinon il y a des subtilités pour que ça ne fonctionne pas de cette façon:
http://msdn2.microsoft.com/en-us/library/ms633539.aspx

Sinon je propose ce code, il est testé pour faire clignoter une fenetre d'une application externe (pas de souci avec la couleur de clignotement et l'arrêt du clignotement).

Dans les déclarations de la form qui doit clignoter:

Code :

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

1
2
 
  const WM_MessageFlash = WM_User + 1;

Dans la déclaration de la form

Code :

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

1
2
 
  procedure MessageLoad(var M: TMessage); message WM_MessageFlash;

Dans la partie implémentation

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
 
procedure TForm1.MessageLoad(var M: TMessage);
begin
  Timer1.enabled := True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if GetForegroundWindow <> Handle then
  begin
    FlashWindow(application.Handle,true);
  end
  else
    Timer1.Enabled := False;
end;

Et ensuite pour faire clignoter:

Code :

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

1
2
3
 
// Si on connait le handle de la fenetre à clignoter c'est plus simple, sinon on cherche par raport au nom de la fenetre
  SendMessage(FindWindow(nil, 'Le nom de ma fenetre'),WM_MessageFlash,0,0);

Cordialement,