Lancer un timer

Bonjour à tous :D,

je cherche à faire un programme qui lors d'un click

1. me lance une procédure (ConnectClient)
2. puis attend un certain délai
3. lance une autre procédure(Send)
4. lance une autre procédure(DisconnectClient)

Voici la partie du code concerné que j'ai fait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TFTchat.Envoyerclick(Sender: TObject); begin ConnectClient; Timer1.Enabled:=true; Timer1Timer(Timer1); Timer1.Enabled:=false; DisconnectClient; end;   procedure TFTchat.Timer1Timer(Sender: TObject); begin Send; end;

---

Problème ! Il me lance 'send' en boucle (même sans cliquer) !

Je gère pas trop les 'timer' et sa propriété 'enabled'.

Est ce que quelqu'un peut essayer de corriger mon code please :(

Timer n'est qu'un composant permettant d'exécuter à chaque x temps (interval) un bout de code mais non pas une durée d'attente.

Utilisez Sleep() de Uses windows

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TFTchat.Envoyerclick(Sender: TObject); begin ConnectClient; Sleep(3000);//attente de 3s Send; DisconnectClient; end;   procedure TFTchat.Timer1Timer(Sender: TObject); begin //Send; end;

---

Merci Randriano:D, toi t'es un vrai !
Je suis en stage et j'ai un peu de mal

;)
Heureux de t'avoir aidé, n'hésitez pas à utiliser le forum.
C'est résolu donc? Avant qu'un modérateur va courir pour te dire de mettre en RÉSOLU, just do it