ANIMER UNE FENETRE
Francky23012301
Messages postés
400
Date d'inscription
samedi 6 août 2005
Statut
Membre
Dernière intervention
11 février 2016
-
26 juil. 2006 à 20:41
elguevel Messages postés 718 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 22 novembre 2016 - 30 juil. 2006 à 10:57
elguevel Messages postés 718 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 22 novembre 2016 - 30 juil. 2006 à 10:57
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/38802-animer-une-fenetre
https://codes-sources.commentcamarche.net/source/38802-animer-une-fenetre
30 juil. 2006 à 10:57
30 juil. 2006 à 10:35
Je remercie aussi à tous ceux qui m'ont soutenu
(CIREC, MATT 261)
J'ai amélioré le code à votre demande (ANIMWINDOW 2.0)
29 juil. 2006 à 09:57
28 juil. 2006 à 21:56
etoffe un peu plus le animatewindow, montre efectivement les effets possibles que la source ai un plus grand interet merci.
28 juil. 2006 à 10:11
28 juil. 2006 à 09:29
AW_VER_POSITIVE
AW_VER_NEGATIVE
AW_HOR_POSITIVE
AW_HOR_NEGATIVE
et montrer qu'il pouvaient être combinés :
AW_VER_NEGATIVE + AW_HOR_NEGATIVE
28 juil. 2006 à 09:00
procedure TForm1.SpeedButton1Click(Sender: TObject);
elle sert à quoi !? elle n'est lié a aucun évènement !
- Tu devrais aussi mettre des instructions pour rafraichir, du genre :
Form1.Refresh;
car après chaque action, tes boutons ne réapparaissent pas d'eux mêmes.
- Tu charges l'image water1.bmp avec cette methode, l'autre image dans le zip (water1_.bmp) sert à rien du coup ?
- Dans le zip enlever tout les fichiers dont les extentions comprennent un "~", ces fichiers sont en fait des sauvegardes, qui permettent de récupéré ton code au cas où tu aurai fait une bourde !
- A quoi sert le panel au milieu ?
- Et si tu veux que ta page reste en dessus des autres pendant le traitement tu peu mettre la propriété "FormStyle" de l'objet Form1 à fsStayOnTop !
Bon Coding, ++
27 juil. 2006 à 19:27
27 juil. 2006 à 15:10
button1.Refresh;
button3.Refresh;
C'est bon en général!....
27 juil. 2006 à 10:54
27 juil. 2006 à 10:48
@+
Matt
27 juil. 2006 à 09:32
vu les commentaires de Francky ... j'ai fait mon petit teste et ...
ben chez moi ça fonctionne ???? (elle n'a jamais aussi bien fonctionné)
la seul chose que j'ai remarqué c'est que s'il y a un autre fenêtre d'ouverte sur le bureau (Explorer où autres) le prog de riri passe dessous cette fenêtre et de ce fait on y voit rien !!!!
Pour le reste je n'ai pas encore regardé le code.
Trop chaud ... pas le code, la température :-)
@+
Cirec
26 juil. 2006 à 20:41
Copie de la source :
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Hide;
AnimateWindow(Handle,2000,AW_CENTER);
form1.Show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Hide;
AnimateWindow(Handle,2000,AW_BLEND);
form1.Show;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
form1.Hide;
AnimateWindow(Handle,2000,AW_CENTER);
AnimateWindow(Handle,4000,AW_BLEND);
form1.Show;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
bmp:=LoadImage(0,'water1.bmp',IMAGE_BITMAP,0,0,LR_LOADFROMFILE);
if bmp=0 then
showmessage('Erreur')
else
Form1.Brush.Handle:=CreatePatternBrush(bmp);
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
FindWindow('Shell_TrayWnd', nil)
end;
Quel est l'intéret de poster une telle source.
En plus cela ne fonctionne pas : il ne sa passe rien. Ce n'est pas étonnant il manque 90% du principe.
Voici un source qui fonctionne : http://nono40.developpez.com/sources/source0059/
@+