ANIMER FENETRE

Commentaire de Debiars le 15/04/2007 15:41:46

Also know as : Pour accéder à une série de composants identiques, je procède comme ceci :

Une petite fonction :

function TForm1.Bouton(no : byte) : TButton;
begin
  Result := FindComponent('Button'+ IntToStr(no)) as TButton;
end;

qui permet de faire (dans le cas présent) :

for i := 1 to 7 do Bouton(i).Refresh;

au lieu de :

button1.Refresh;
button2.Refresh;
button3.Refresh;
button4.Refresh;
button5.Refresh;
button6.Refresh;
button7.Refresh;

Commentaire de Debiars le 15/04/2007 16:20:12

ALSO OK.

On peut également simplifier comme ceci :

Pour tous les boutons :
- On renseigne la propriété Tag avec le numéro du bouton
- On met "Button1Click" dans l'évenement OnClick.

On ne garde que la procédure Button1Click, comme ceci :

procedure TForm1.Button1Click(Sender: TObject);
var  i, tag : byte;
begin
  form1.Hide;
  tag := (Sender as TButton).Tag;
  case tag of
    1 : AnimateWindow(Handle,2000,AW_CENTER);
    2 : AnimateWindow(Handle,2000,AW_BLEND);
    3 : begin
          AnimateWindow(Handle,2000,AW_CENTER);
          AnimateWindow(Handle,4000,AW_BLEND);
        end;
    4 : AnimateWindow(Handle,2000,AW_VER_POSITIVE);
    5 : AnimateWindow(Handle,2000,AW_VER_NEGATIVE);
    6 : AnimateWindow(Handle,2000,AW_HOR_POSITIVE);
    7 : AnimateWindow(Handle,2000,AW_HOR_NEGATIVE);
  end;
  form1.Show;
  for i := 1 to 7 do Bouton(i).Refresh;
end;

function TForm1.Bouton(no : byte) : TButton;
begin
  Result := FindComponent('button'+ IntToStr(no)) as TButton;
end;

Commentaire de cincap le 23/04/2007 08:38:41

Bonjour,

Très bien pour la source, même exemple en 2004 du membre DevelOpeR13 sur ce lien :

http://www.delphifr.com/code.aspx?ID=20424

Même remarque que le membre Also know as, le bouton "Les deux" ne fait que la 1ère animation même avec l'expression "or"

AnimateWindow(Handle,2000, AW_CENTER or AW_BLEND);

@+,

Cincap

Commentaire de japee le 24/04/2007 17:25:14 administrateur CS

Bon, encore une fois, ce code est un copier-coller d'un travail effectué par les autres, ici DevelOpeR13, et que tu t'attribues sans aucune honte.

Par exemple, ton "unit11.pas" est exactement SON "unit1.pas" que tu as renommée, voir ici pour ceux qui ne comprendraient pas ce que je veux dire :
http://www.delphifr.com/code.aspx?ID=20424
On peut dire que tu as du culot.

Ton comportement est inadmissible :
- Arrivée sur CodeS-SourceS le :  13/04/2007,
- aucune participation sur le forum, mais déjà 3 codes postés,
- 2 de ces codes sont des pillages de travail effectué par d'autres (voir http://www.delphifr.com/codes/ZOOMER-IMAGE-SIMPLE-EFFET-TUNNEL_

42430.aspx), le 3ème ne fonctionne pas...

Sauf malentendu, tu n'as rien compris à l'esprit qui anime cette communauté de développeurs.

Je donnerai suite en fonction de tes explications...

japee - admin cs

Commentaire de riri15 le 25/04/2007 14:16:48

Je remercie RANDRIANO pour l'amélioration qu'il a fait sur mon code!
Tu as tout mon accord!
Japee, ne soyez pas sévère! Je crois qu'il a tout pigé now!