ANIMWINDOW 2.0
Utilisateur anonyme
-
30 juil. 2006 à 11:53
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 30 juil. 2006 à 21:13
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 30 juil. 2006 à 21:13
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/38855-animwindow-2-0
https://codes-sources.commentcamarche.net/source/38855-animwindow-2-0
30 juil. 2006 à 21:13
Oui, mais de là à dire que ce sont des vieillards maniaques...
30 juil. 2006 à 17:46
30 juil. 2006 à 15:07
--> riri15
Au début, j'ai cru à un gag... Mais non.
Sois gentil de peaufiner un peu ton source, stp.
La place est comptée et on n'a pas envie d'observer tes progrès en Delphi au jour-le-jour.
Imagine qu'un jour quelqu'un fasse une recherche avec "AnimateWindow" et qu'il tombe sur tes 15 sources foireuses...
Allez, bon courage!
30 juil. 2006 à 11:53
pourquoi avoir posté une deuxième source quasi identique à la première ?
en plus les erreurs cités dans l'autre sont toujours présentes.
Seul 4 Fichiers sur 13 sont utiles dans ton Zip (*.dpr; *.pas; *.dfm; *.bmp) les autres tu peux les supprimer.
L'utilisation de l'API AnimateWindow n'est pas correct.
Voici quelques Exemples :
procedure TForm1.btnCenterClick(Sender: TObject);
begin
AnimateWindow(Handle,2000,AW_HIDE or AW_CENTER); // animation pour cacher la fenêtre
AnimateWindow(Handle,2000,AW_ACTIVATE or AW_CENTER);// " " pour montrer la fenêtre
end;
procedure TForm1.btnVerClick(Sender: TObject);
begin
AnimateWindow(Handle,2000,AW_HIDE or AW_VER_NEGATIVE);
AnimateWindow(Handle,2000,AW_ACTIVATE or AW_VER_POSITIVE);
end;
procedure TForm1.btnVerNSlideClick(Sender: TObject);
begin
AnimateWindow(Handle,2000,AW_HIDE or AW_VER_NEGATIVE or AW_SLIDE);
AnimateWindow(Handle,2000,AW_ACTIVATE or AW_VER_POSITIVE or AW_SLIDE);
end;
Par contre les associations que tu as faites :
procedure TForm1.Button3Click(Sender: TObject);
begin
form1.Hide;
AnimateWindow(Handle,2000,AW_CENTER);
AnimateWindow(Handle,4000,AW_BLEND);
form1.Show;
end;
ne fonctionne pas du tout ... compare le ton code avec les exemples
pour plus d'explication voir ici :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/windows/windowreference/windowfunctions/animatewindow.asp
Une petite dernière pour la route :-)
procedure TForm1.btnDiagClick(Sender: TObject);
begin
AnimateWindow(Handle,2000,AW_HIDE or AW_VER_NEGATIVE or AW_HOR_NEGATIVE or AW_SLIDE);
AnimateWindow(Handle,2000,AW_ACTIVATE or AW_VER_POSITIVE or AW_HOR_POSITIVE or AW_SLIDE);
end;
Voilà les possibilités sont multiples
ps : nomme tes composants
@+
Cirec