Discussion :

[devoluti0n]

Bonjour !

J'ai un petit souci, et qui est probablement un souci de débutant.
J'ai éssayé avec un Sleep() par éxemple, mais sa ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
begin
if getasynckeystate(VK_F1) <> 0 then
label1.Caption := 'uh ?' ;
  if Label1.Caption <> '' then
  begin
    sleep(2000);
    Label1.visible := False;
  end;
end;

Il faudrai donc que au bout d'un certain temps définissable se fasse mon action.

Hors avec un sleep, j'ai l'impréssion que l'action qui est écrite aprés, se fait avant le sleep, et que ensuite j'ai un gros ramage du temps indiqué .

Euh, une idée?

[WolffN]

une solution simple consiste a utiliser un ttimer

sinon il faut utiliser les threads

[sjrd]

Peut-être ceci ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
{*
  Met en pause l'exécution pendant un temps défini
  Pendant cette pause, les messages Windows de l'applications sont tout de
  même traités.
  @param Milliseconds   Nombre de milisecondes pendant lesquelles pauser
*}
procedure WaitProcessMessages(Milliseconds : integer);
var BeginTime : TDateTime;
begin
  BeginTime := Now;
  while MilliSecondsBetween(Now, BeginTime) < Milliseconds do
    Application.ProcessMessages;
end;

[devoluti0n]

Désolé, mais je ne comprends pas comment l'utiliser afin de placer ma pause au milieu d'une suite d'instruction.

[ero-sennin]

Salut,

Il te faut remplacer, si j'ai bien suivi, ton sleep(2000) par WaitProcessMessages(2000)

Il a juste ça à faire

[devoluti0n]

Ah oui d'accord, et ce pour appeler la procedure de sjrd.

cepandant il me dit que "MilliSecondsBetween" n'est pas déclaré .

je l'ai déclaré comme un integer, mais par la suite il me dit :
[Pascal Error] Unit1.pas(432): E2066 Missing operator or semicolon

en pointant

Code :

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

while MilliSecondsBetween('ici'Now, BeginTime) < Milliseconds do

[edam]

une solution simple consiste a utiliser un ttimer

sera mieux, voir cette example

[devoluti0n]

Vraiment désolé ...

Il y a des fois ou je fais pas assez attention...
cepandant merci beaucoup !!

Par contre (Non ne me fouetez pas ! ) j'ai le meme probleme qu'avec un timer.

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
procedure WaitProcessMessages(Milliseconds : integer);
var BeginTime : TDateTime;
begin
  BeginTime := Now;
  while MilliSecondsBetween(Now, BeginTime) < Milliseconds do
    Application.ProcessMessages;
end;
 
procedure TFmain.Timer1Timer(Sender: TObject);
begin
if Label1.Caption<> '' then
begin
  WaitProcessMessages(1000);
  Label1.Caption := '';
end;

Mais mon programme se gele .

En fait j'ai plusieurs procédures qui font changer le contenu du label1.
Je voudrai qu'une fois le label apparu, aprés un certain laps de temps, il devienne " Label1.Caption := '' "

Donc j'ai pensé au sleep qui me faisais freeze, mais meme la avec le WaitProcessMessages, bisarement le label défini dans les procédures ne s'éfichent pas, et je freeze autant qu'avec le sleep() .

Vous savez de quoi sa pourai provenir ?

[Eric Boisvert]

je reviens à ton premier post...
ton label change mais tu ne le vois pas...
essaie ceci...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  If getasynckeystate(VK_F1) <> 0 Then
  Begin
    label1.Caption := 'uh ?';
    label1.Refresh; //Force le rafraichissement du label à l'écran
  End;
  If Label1.Caption <> '' Then
  Begin
     WaitProcessMessages(2000); //sleep(2000);
    Label1.visible := False;
  End;

[devoluti0n]

J'ai préféré l'utilisation d'un timer secondaire.
Désolé d'avoir fait trainer sur des broutilles pareils.
Merci beaucoup .