Fin de création des fiches

Question

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

Cirec · Answer

Salut,

ceci peut être


[hr]@+Cirec
[hr]

cs_f6dqm1 · Answer

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

f0xi · Answer

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 ?

Fin de création des fiches

3 réponses

Votre réponse

Discussions similaires