Hello, voila mon probleme : J'ai un bout de code qui crée des enregistrements dans une table paradox et je voudrais que quand le programme écrit dans la table il affiche le form3 mais qu'il l'affiche au minimum 4 secondes même si le programme met moins de temps à écrire dans la table.

Vu que je suis presque sur que mon programme ne mettra jamais plus de 5 secondes à écrire dans la table je m'étais dit que je pouvais uttiliser un sleep qui attend d'office 5 seconde et j'avais écrit ceci :

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
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form3.show;
form1.Hide;
  Table1.Open;
  Table1.Last;
  d := Table1.FieldByName('complet').AsDateTime + 1;
  Edit1.text:=datetostr(d);
  annee := Yearof(d)+1;
  While YearOf(d) < annee do
  begin
     Table1.append;
      Table1.FieldByName('complet').AsDateTime := d;
     Table1.Post;
     d := d + 1;
  end;
  Table1.Close;
sleep(5*1000);
form3.Hide;
form1.Show;
end;
Seulement voila, la form3 s'ouvre sans problème mais les deux Label qui sont dedans ne s'affichent pas ! Je ne comprends pas pourquoi !