Discussion :

[tarmo57]

Salut tous et merci d’avance.
Voila un autre petit problème que je rencontre
J’ai un bouton et sur l'élément onclic je redimensionne un groupeBox

Code :

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

GroupBox1.Height:=20;

mais je voudrais un éffet de fondu !
mais l'action est trop rapide. il y a t'il un moyen ,avec peut étre un timer de ralentir la redimention de mon groupBox?
merci d'avance

[guillemouze]

soit un timer, soit des sleep :

Code :

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

1
2
3
4
5
6
7
 
for i := TailleActuelle to TailleFinale do
begin
  Groupbox1.height := i;
  application.processMessages;
  sleep(20);
end;

[tarmo57]

soit un timer, soit des sleep :

Code :

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

1
2
3
4
5
6
7
 
for i := TailleActuelle to TailleFinale do
begin
  Groupbox1.height := i;
  application.processMessages;
  sleep(20);
end;

j'ai mis

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Image2Click(Sender: TObject);
for i:= 120 to 20 do
begin
  Groupbox1.height := i;
  application.processMessages;
  sleep(20);
end;

mais j'ai une érreur

[guillemouze]

for i:= 120 downto 20 do

mais j'ai une érreur

c'est bien gentil mais si tu nous dit pas quelle erreur et a quelle ligne, ca va pas nous avancer

PS : tu n'es pas obliger d'avancer 1 pixel par 1, tu peux faire :
for i:= 30 downto 5 do
...
Groupbox1.height := 4*i;
...

[tarmo57]

for i:= 120 downto 20 do

c'est bien gentil mais si tu nous dit pas quelle erreur et a quelle ligne, ca va pas nous avancer

PS : tu n'es pas obliger d'avancer 1 pixel par 1, tu peux faire :
for i:= 30 downto 5 do
...
Groupbox1.height := 4*i;
...

excuse oui je te donne l'erreur
Déclaration attendu(e) mais 'FOR' trouvé(e)
Identification non déclaré:'i'

[JP.NUAGE]

Si tu as une erreur sur la ligne contenant le FOR, c'est que en prinipe, le code avant le FOR est erroné. Soit un point virgule qui manque ou un end;

Regarde déjà de ce côté., mais peut être que le fait d'écrire

Code :

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

for i:= 120 to 10 do

crée déjà l'erreur et que Delphi balance la ligne FOR. Je n'ai pas testé.

[popo]

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Image2Click(Sender: TObject);
for i:= 120 to 20 do
begin
  Groupbox1.height := i;
  application.processMessages;
  sleep(20);
end;

Tu n'as pas déclaré ta variable i !
Tu essaie d'aller de 120 à 20 en ajoutant 1 à i !
Ta procédure n'as pas de begin et de end;

Essaie ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Image2Click(Sender: TObject);
var : i : integer;
begin
for i:= 120 downto 20 do
begin
  Groupbox1.height := i;
  application.processMessages;
  sleep(20);
end;
end;

[tarmo57]

Tu n'as pas déclaré ta variable i !
Tu essaie d'aller de 120 à 20 en ajoutant 1 à i !
Ta procédure n'as pas de begin et de end;

Essaie ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Image2Click(Sender: TObject);
var : i : integer;
begin
for i:= 120 downto 20 do
begin
  Groupbox1.height := i;
  application.processMessages;
  sleep(20);
end;
end;

Super un grand merci sa marche super