Discussion :

[nopnop]

Bonjour,
Dans mon application, lors du clique sur un bouton, une fiche (form) apparait grace a l´API AnimateWindow. Jusque là, tout va bien. Cette fiche apparait en dessus de ma fiche principale (ca c´est très bien!). J´aimerais que losrque que l´on ferme cette fiche (celle apparue grace a AnimateWindow ), il y ait un effet AnimateWindow qui la fasse "disparaitre". Pour cela, j´utilise AnimateWindow(form_comentario1.Handle, 200, AW_HOR_NEGATIVE or AW_HIDE);

Le probleme, c´est que l´animation se realise sous ma fiche principale, donc on ne voit rien.
Que puis je faire pour que cette animation se réalise par dessus la fiche principale du programme ? J´ai deja essayé : stayontop et des choses comme ca, mais ca concerne directement la fiche et pas le moment ou elle disparait(moment de l´animation).

Quelqu´un a t´il une idée pour résoudre mon problème?
Merci beaucoup
Julie

[Eric Sigoillot]

Bonjour,

Essaie d'appeler BringToFront dans l'évènement OnCloseQuery de la fiche qui doit disparaître.

@++

[nopnop]

Coucou,
Merci, mais ca ne change rien. L´animation continue de se realiser en dessous de la fiche principale.

Une autre idée?
Merci
@+ Julie

[edam]

ajout :

Code :

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

     SetWindowPos(form2.Handle,HWND_TOPMOST,-1,1,1,1,SWP_NOMOVE+SWP_NOSIZE);

aprés 1er apel de animate pour mettre ta forme en premié

[nopnop]

J´ai tenté, mais ca ne marche toujours pas....
C´est fou ce truc là !!!
Encore une autre idée?
Merci ;o)

[Pascal Jankowski]

Si tu veux utiliser des composants gérant cela, voici un lien qui dévrait être intéressant http://www.billeniumsoft.com/

Sinon, pour la fonction AnimateWindows, je pense qu'il faut que tu lui indiques le type d'effet, à tout hasard essaie ceci :

Code :

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

1
2
3
 
AnimateWindow(form_comentario1.Handle, 200, AW_SLIDE or AW_HOR_NEGATIVE or AW_HIDE);

[edam]

bizare j'ai essayé ce code et sa marche cher moi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
//pour montré la forme (Form2) crée automatiquement bien sur
procedure TForm1.Button1Click(Sender: TObject);
begin
     AnimateWindow(form2.Handle,100,AW_HOR_POSITIVE+AW_ACTIVATE);
     SetWindowPos(form2.Handle,HWND_TOPMOST,-1,1,1,1,SWP_NOMOVE+SWP_NOSIZE);
end;
//pour la chacher (sans la détruire)
procedure TForm1.Button2Click(Sender: TObject);
begin
     AnimateWindow(form2.Handle,100,AW_HOR_NEGATIVE or AW_HIDE);
 
end;