Discussion :

[nicholz]

Voilà, en fait j'aimerais ouvrir une form, en faisant comme un fondu, genre elle est de plus en plus opaque alros qu'au début transparente.
Mais je ne sais pas comment faire. je ne sais pas si faut un composant, le quel??

merci de votre aide

[herzleid]

1 -Ta form à une propriété alphablend à false par défaut, tu l'a met à true.
2- Ta form à une propriété alphablendValue à 250 par défaut. C'est cette valeur que tu va faire varier de 0 à 250 (par example avec un timer) pour faire passer ta forme de transparent à opaque.

Mais il y a un problème : ça ne marche que depuis win 2000 (ou peut être Me). Les versions anterieur de windows ne géraient pas la transparence. Par contre je sais pas ce que ça fais (planté ou non) si ton programme utilise l'alphablending sur une machine qui ne le supporte pas.

[nicholz]

trop fort, je te remercie, c'est exactement ce que je voulais et ça marche nikel !!

Merci bocou

[Lung]

Tu as aussi cette super fonction :

Code :

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

AnimateWindow(Form1.Handle, 500, AW_BLEND);

Liste des paramètres possibles :

AW_BLEND
AW_CENTER
AW_HOR_POSITIVE
AW_HOR_NEGATIVE
AW_VER_POSITIVE
AW_VER_NEGATIVE

[herzleid]

Si ton problème est résolu, alors n'oublis pas de mettre le tag [résolu].

[nicholz]

Tu as aussi cette super fonction :

Tu pourrais me faire un mini exemple please ?
merci d'avance

Si ton problème est résolu, alors n'oublis pas de mettre le tag [résolu].

Oui désolé j'avais oublié, merci

[Lung]

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
   AnimateWindow(Form1.Handle, 500, AW_BLEND);
end;

[nicholz]

oki merci

[nicholz]

le code pour animatewindow, ne marche pas il me dit "access violatio"!! ?

[Lung]

: :

Bin, c'est bizard !!!

Essaye ca : http://fwszip01.free.fr/zip_frensh/j...mateWindow.zip