private iTempo : integer; procedure Mythread.Commande; begin form1.commande1(Sender); form1.commande2(Sender); end; procedure Mythread.InitTempo; begin iTempo := StrToInt(form3.Edit1.text) * 1000; end; procedure Mythread.Execute; begin while not Terminated do if not form1.stop then begin Synchronize(Commande); Synchronize(InitTempo); Sleep(iTempo); end; end; end; // Dans le ta form1 tu change l'état de tes bouttons lorsque tu clique dessus. Procedure Tform1.Button1Click(Sender: TObject); begin stop := False; button1.Enabled := False; button2.Enabled := True; end; Procedure Tform1.Button2Click(Sender: TObject); begin stop := True; button1.Enabled := True; button2.Enabled := False; end;
procedure Mythread.Execute; var i:integer; begin repeat begin form1.commande1(Sender); form1.commande2(Sender); if not form1.stop then sleep(strtoint(form3.Edit1.text)*1000); end; until (form1.stop=true); form1.button1.Enabled:=true; form1.button2.Enabled:=false; end
procedure Mythread.Execute; var i : integer; begin // Le begin et end ne sont pas nécessaire entre repeat et until. repeat form1.commande1(Sender); form1.commande2(Sender); if not form1.stop then sleep(strtoint(form3.Edit1.text)*1000); until (form1.stop=true); form1.button1.Enabled:=true; form1.button2.Enabled:=false; end
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question