bonjour,
je souhaite faire une animation qui fait que lorsqu'on clique sur un bouton, un cube saute puis retombe. J'ai donc fait mon code (qui marche), mais l'animation est beaucoup trop rapide. J'ai donc cherché sur les forums et la fonction à utiliser serait 'setTimeout', mais je n'arrive pas à l'intégrer. Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
unit fiche;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
  {...}  
  Edit128: TEdit;
    Button1: TButton;
    procedure bt1c(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.bt1c(Sender: TObject);
begin
 
if edit88.Color=clred then edit72.Color:=clred;
 edit88.Color:=clblue;
setTimeout(function(){
 if edit72.Color=clred then edit56.Color:=clred;
 edit72.Color:=clblue;
 }, 1000);
  settimeout(function(){
if edit56.Color=clred then edit72.Color:=clred;
 edit56.Color:=clblue;
  }, 1000);
  settimeout(function(){
if edit72.Color=clred then edit88.Color:=clred;
 edit72.Color:=clblue;
  }, 1000);
 
 
end;
 
end.
Merci d'avance!