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;et voila le resultat ci dessous qui s'affichera en bas a droite de votre bureau
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.
Partager