Apparition progressive d'une form

Commenter

Contenu du snippet

Voici donc mon premier code déposé sur CS... après de nombreuses recherches infructueuses, et souhaitant faire une animation capable de bouger une form de manière simple afin d'arriver au même résultat (ou presque :p) que les alertes msn, ce code est né !
N'hésitez pas à intervenir, vu que je ne suis absolument pas expert en delphi, et que d'autre part je suis ouvert à toutes les recommandations :D !

Source / Exemple : 


// Il faut poser un timer sur la form et c'est tout en ce qui concerne les recommandations
// ci joint la procédure Ontimer 

procedure TForm1.Timer1Timer(Sender: TObject);
var
i, o: integer; // deux variables de types integer qui vont servir pour les boucles
begin
timer1.Enabled:=false; // on "éteint" le timer pour pas qu'il se redéclenche
for i:=-GetSystemMetrics(SM_CYSCREEN) to -(GetSystemMetrics(SM_CYFULLSCREEN)-form1.Height) do
// boucle déclarée allant de -(la "hauteur" de l'écran) à -(la hauteur de l'écran-la hauteur de la form1)
begin
Form1.Top:=-i ; // on assigne la position -i par rapport au haut de l'écran pour la form1
Form1.Left:=GetSystemMetrics(SM_CXFULLSCREEN)-form1.width; // on assigne la position (largeur de l'ecran - largeur form1) par rapport à la gauche de l'écran pour la form1
sleep(10); // cela permet de mieux apprécier la montée de la form (réglable au choix ;-)
end;

sleep(1000); // on laisse un repos afin de pvoir lire un msg si il en y a un dans la form

for o:=(GetSystemMetrics(SM_CYFULLSCREEN)-form1.Height) to GetSystemMetrics(SM_CYSCREEN) do
// on relance une nouvelle boucle mais dans l'autre sens
begin
Form1.Top:=o ; // procédure similaire
Form1.Left:=GetSystemMetrics(SM_CXFULLSCREEN)-form1.width; // procédure similaire
sleep(10); // procédure similaire
end;
end;

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.