padsou
Messages postés121Date d'inscriptionjeudi 24 janvier 2002StatutMembreDernière intervention13 avril 2010
-
16 sept. 2005 à 17:42
padsou
Messages postés121Date d'inscriptionjeudi 24 janvier 2002StatutMembreDernière intervention13 avril 2010
-
19 sept. 2005 à 12:29
Bonjour !
Je souhaite convertir ce code à 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 ç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;
padsou
Messages postés121Date d'inscriptionjeudi 24 janvier 2002StatutMembreDernière intervention13 avril 2010 19 sept. 2005 à 09:00
pardon pour cette réponse tardive, j'é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élai) avant l'apparition subite et non progressive de ma form.