Bonjour à tous, débutant en langage Pascal encore plus sous Lazarus, j'ai eu un problème sur un projet avec un formulaire maître et un autre formulaire dont le but est d'afficher un QCM chronométré.
J'ai donc créé un mini projet pour voir comment je pouvais gérer ça : aucune aide trouvée sur la toile à ce sujet :/.
Voici la composition de mon interface :
Le code source se trouvera à la suite de ce message.Form1 :
NOM : frmPrime
Unité : UPrime
Objets (5):
TEdit => edUp ; edDown ; edLeft ; edRight
Tmemo => mmoPrime
Form2 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part procedure TfrmPrime.FormKeyDown
NOM : frmDeus
Unité : UDeus
Objets (3):
TEdit => edStart ; edMsg
TTimer => tmrTxt
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 procedure FormCreate procedure FormKeyPress procedure tmrTxtTimer
Le premier formulaire gère la saisie clavier : il répond aux flèches et affiche son nom dans la case TEdit correspondante.
et de l'appuis sur 'Espace' et 'Entrée' pour activer le second formulaire.
En reprenant ce projet j'ai vu une erreur toute bête : l'utilisation de 'form create' n'a pas été judicieux : je testerai ce soir le changement d'état du TEdit correspondant au test d'activation virtuel de mon formulaire secondaire.
Le problème rencontré une mini boucle "For i := 1 To 5 Do showMessage('Count down :' + intToStr(5 - i));"
Ecrit au début du second formulaire et qui s'affiche dés le lancement de l’exécutable : pour palier à ce problème, j'ai crée un TEdit : 'edStart' initialisé à '0' et qui change sa valeur quand le premier formulaire le décide pour que Form2 s’exécute en différé.
Je voulais savoir si une autre solution existait pour empêcher les formulaires secondaires d'être actif dés le départ.
Cordialement
Partager