Fin de création des fiches

Signaler
Messages postés
62
Date d'inscription
lundi 8 novembre 2004
Statut
Membre
Dernière intervention
25 mai 2013
-
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
-
Bonjour
Existe t'il un évènement dans Delphi qui signale que l'ensemble des fiches à été créées dans l'unité chapeau, juste avant ou après l'envoi de Application.Run ?

Gabriel

3 réponses

Messages postés
3825
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 février 2021
38
Salut,

ceci peut être


[hr]@+Cirec
[hr]
Messages postés
62
Date d'inscription
lundi 8 novembre 2004
Statut
Membre
Dernière intervention
25 mai 2013

Bjr
Ce code permet juste un suivi de la création des fiches successives (avec des sleep de 3 secondes entre fiches !).
Pour l'instant j'ai bidouillé en mettant un pointeur à true juste avant que l'unité chapeau exécute la procédure Application.Run et je teste ce pointeur dans une boucle Timer dans la procédure activate de la fiche principale.
mais c'est vraiment bidouille ! je me demandais s'il n'y avait pas dans Windows une donnée système qui prend en compte cette information de fin de création des fiches.
Bonne soirée
Gab


Gabriel
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
UFormLoaded.pas
Unit UFormLoaded:

interface

var
  MainFormLoaded : boolean = false;
  FrmDeuxLoaded  : boolean = false;
  FrmTroisLoaded : boolean = false;

implementation    

end.



MainForm :

implementation

uses UFormLoaded;

procedure TMainForm.Create(Sender: TObject);
begin
  MainFormLoaded := true;
end;


FormDeux :

implementation

uses UFormLoaded;

procedure TFormDeux.Create(Sender: TObject);
begin
  FormDeuxLoaded := true;
end;


FormTrois :

implementation

uses UFormLoaded;

procedure TFormTrois.Create(Sender: TObject);
begin
  FormTroisLoaded := true;
end;


________________________________________________________
besoin de câbles audio, vidèo, informatique pas cher ?