Discussion :

[shell13010]

Je vous propose un petit code que j'avais fait pour faire pareil que MSN quand il y a un utilisateur qui se connecte qui monte et redescend apres plusieur seconde.

Donc le code et simple mais je pense que sa intéressera des personnes..

Alors comme composant il faut:

1 Timage
1 Ttimer et sa sera tout pour cette exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
// Voici un petit exemple que j'ai fait et qui permet de faire un popup du style msn,
// qui est simple et vous pouvez le personnaliser a votre guise..
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle:=Bs_None; //ou pour si vous preferez que le contour s'affiche avec le bouton fermer alors
// BorderStyle:=bsSizeToolWin;
   Top := Screen.WorkAreaHeight - 115;
    Left := Screen.WorkAreaWidth - 201;
     Height := 150;
   Width := 200;
  Timer1.Enabled := True;
 end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval := 30;//je prefere le mettre a 30 pour avoir plus de temp quand il s'affiche
   Top := Top + 15;   //vitesse quand le popup redescent,vous pouvez tester 20 etc...
    if Top > Screen.WorkAreaHeight then
begin
  Close;
   Timer1.Interval := 1000;
  Timer1.Enabled := False;
  end;
 end;
end.

et voila le resultat ci dessous qui s'affichera en bas a droite de votre bureau