Form TransparenteRésolu

Question

Bonjour !

Je souhaite convertir ce code &#224; la fermeture de la fenetre (apparence de disparition progressive de la fiche) en disparition d'apparition progressive de la fiche au lancement de l'application.

J'avais fais ceci mais &#231;a ne marche pas :

var
  i, cavb : integer;
begin
  AlphaBlend := True;
  for i := 0 to 255 do
  begin
    AlphaBlendValue := i;
    Application.ProcessMessages;
  end
end;


Voici le code original :

procedure TF_Principale.FormClose(Sender: TObject;
  var Action: TCloseAction);
var
  i, cavb : 0..255;
begin
  if AlphaBlend=False then
  begin
    AlphaBlendValue:=255;
    AlphaBlend:=True;
  end;
  cavb:=AlphaBlendValue;


  for i := cavb downto 0 do
  begin
    AlphaBlendValue := i;
    Application.ProcessMessages;
  end
end;

florenth · Accepted Answer

Tu peux utiliser la procédure AnimateWindow pour effectuer un fondu avec ta fenetre.

procedure TForm1.FormShow(Sender: TObject); begin AnimateWindow(Handle,200,AW_BLEND); // Affichage de la fenetre avec fondu (durée: 200ms) end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin AnimateWindow(Handle,200,AW_HIDE or AW_BLEND); end;

@ ++ Florent Si tu ne te plantes pas ...... tu ne poussera jamais

ni69 · Answer

Dans quelle proc&#233;dure as-tu mis le code du haut ?

 @+

       Nico  { http://perso.wanadoo.fr/ni69/ }

       

             
<hr size="2" width="100%">       

N'oubliez pas de cliquer sur R&#233;ponse Accept&#233;e lorsque la r&#233;ponse vous convient !

Yil2201 · Answer

Salut si tu veux fermer avec un bouton voici la marche a suivre ( ne fonctionne pas uand on clique sur la croix  ):

Rajoutes un Timer sur ta fiche et dans ses proprio change True en False de Enabled



Dans l'evenement OnCLick du bouton Tape ceci :



Form1.AlphaBlend:=True;

Timer1.Enabled:=True;



Dans l'&#233;venement onTimer du timer ceci :



Form1.AlphaBlendValue:=Form1.AlphaBlendValue - 10 ;

if Form1.AlphaBlendValue = 5 then Application.Terminate;



dis moi si c'est bien ce qui te faut



[url]www.yiliman2201.be.tf/url
      Mon site !

ni69 · Answer

Yil2201 : Je crois que padsou cherchait un code pour faire une apparition progressive, pas une disparition progressive, ce qu'il a d&#233;j&#224; r&#233;alis&#233;... 

padsou : je r&#233;it&#232;re ma question... 

 @+

        Nico  { http://perso.wanadoo.fr/ni69/ }

        

               
<hr size="2" width="100%">        

N'oubliez pas de cliquer sur R&#233;ponse Accept&#233;e lorsque la r&#233;ponse vous convient !

ni69 · Answer

Tiens, je ne connaissais pas cette proc&#233;dure 
Gr&#226;ce &#224; toi, j'aurais appris quelque-chose aujourd'hui 


 @+

         Nico  { http://perso.wanadoo.fr/ni69/ }

         

                 
<hr size="2" width="100%">         

N'oubliez pas de cliquer sur R&#233;ponse Accept&#233;e lorsque la r&#233;ponse vous convient !

padsou · Answer

pardon pour cette r&#233;ponse tardive, j'&#233;tais en week end...

Je l'ai mis sur le OnCreate de ma form. Ton code ne marche pas florenth, il y a un temps de latence (correspondant certainement au d&#233;lai) avant l'apparition subite et non progressive de ma form.

Merci !

ni69 · Answer

Il faudrait peut-&#234;tre rajouter Update; avant le code de florenth...

 @+

          Nico  { http://perso.wanadoo.fr/ni69/ }

          

                   
<hr size="2" width="100%">          

N'oubliez pas de cliquer sur R&#233;ponse Accept&#233;e lorsque la r&#233;ponse vous convient !

padsou · Answer

&#231;a ne marche pas &#233;galement. de plus, mes composants ont leur propri&#233;t&#233; "border" &#233;gale &#224; 0 en rajoutant Update ou Application.ProcessMessages;

padsou · Answer

oups, non non je retire ce que j'ai dis &#231;a marche mais c'est &#224; placer sur le OnCreate et non pas sur le Show de la fiche comme l'indiquait florenth.

Merci !

Form Transparente

9 réponses

Votre réponse