Discussion :

[Yepazix]

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 !

[skywaukers]

bonjour,

essaye de mettre un Application.ProcessMessages avant le sleep.

@++
Dany

[Yepazix]

Oui mais j'aimerais surtout comprendre ce qui se passe

[skywaukers]

simplement le sleep est bloquant, donc les messages windows qui n'ont pas le temps d'être traité avant restent en attente jusqu'à la fin du sleep. Application.processmessages force le traitement des messages en attente à ce moment là.

@++
Dany

[Yepazix]

Ah ok et ca s'uttilise comment ? parceque j'ai tappé ca dans l'aide de Delphi et j'ai pas trouvé

[skywaukers]

ben c'est pas compliqué :

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; 
Application.ProcessMessages; <-- ICI
  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;

@++
Dany

[Yepazix]

Ah ben oui c'est tout con mais il fallait le savoir ! Merci