Bonjour,
J'ai une application de gestion. Dans ma BDD, il y a un TTable qui contient des millions d'enregistrements.
ça prend du temps pour les charger, alors, je veux afficher une fiche pour renseigner l'utilisateur que les enregistrements sont en train de se charger (voir l'image jointe). Après que la table soit ouverte, je ferme cette form2
Le code du bouton de la Form1:
La Form2 s'affiche mais la Table1 ne s'ouvre pas et la Form2 reste tout le temps affichée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Form2.Showmodal; Table1.open; Sleep(1000); Form2.Close;
J'ai testé après :
Le code du bouton de la Form1:
Et dans la Form2, j'ai mis un TTimer qui vérifie si la Table1 est déjà ouverte, si c'est le cas, on ferme la Form2.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Form2.Showmodal; Table1.open;
Delphi XE5 + Firebird 2.5.
J'ignore si je vous ai bien expliqué ce soucis.
Merci pour votre aide.
Partager