Et en utilisant un Timer ? Par exemple :
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
If (la_condition) Then LaModalForm.ModalResult:=MrOK;
End;
Type: Messages; Utilisateur: Sub0
Et en utilisant un Timer ? Par exemple :
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
If (la_condition) Then LaModalForm.ModalResult:=MrOK;
End;
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.