Attendre qu'une form soit chargée avant d'exécuter du code

Hello,

A l'apparition d'une form, j'aimerais lancer une série de fonctions mais qui doivent s'exécuter uniquement lorsque la form est chargée.

Le but est que la form s'affiche, et que les résultats des fonctions s'écrivent au fur et à mesure.

Pour l'instant j'ai mis mes appels de fonctions dans le formShow, et la form n'apparaît qu'une fois toutes les fonctions terminées, ce qui n'est pas terrible (long à charger, et pas d'effet visuel d'incrémentation des résultats).

Une idée ?

Salut,

Et si tu mettais sur ta Form un Timer avec Enabled:=False lors de la conception, ... puis à la fin du formShow (débrassé de l'appel des fonctions) un simple Timer1.Enabled:=True; de façon à ne déclencher l'appel de tes fonctions qu'en différé avec lévénement OnTimer ça devrait marcher et peut-être même avec l'intervalle par défaut de 1000 millisecondes.

Mais dans l'événement OnTimer n'oublies pas d'achever ce premier appel à tes fonctions par Timer1.Enabled:=False; sinon ça va tourner en rond voire bloquer.

A+ :D

Bonjour,

As tu essayer du coté du OnActivate de ta fiche?

A+

Juste avant de lancer la premiere fonction rajoute un Application.ProcessMessages (voir en mettre aussi dans les boucles au endroit clef de tes fonctions).

Sinon, la solution de GilBert est pas mal non plus

Citation:

---

Envoyé par pitango

Bonjour,

As tu essayer du coté du OnActivate de ta fiche?

A+

---

Attention avec le OnActivate à chaque fois que la fenêtre à le focus l'évènement est appelé, donc c'est à éviter.

Citation:

---

Envoyé par Rayek

Attention avec le OnActivate à chaque fois que la fenêtre à le focus l'évènement est appelé, donc c'est à éviter.

---

:cry: oups!!

Effectivement, mauvais idée.

tu peux essayer, dans le formshow, de mettre ceci

Code:

---

1 2 3 4 5 6

procedure TForm.Show() begin inherited; Application.ProcessMessages; TonTraitement; // avec des Application.ProcessMessages dans ton traitement à chaque fois que tu veux forcer l'affichage end;

---

@TicTacToe

Pourquoi un inherited ? Nous sommes sur une procédure TNotifyEvent.

Merci pour les réponses.

Le Timer de Gilbert fonctionne parfaitement.

Par contre j'ai aussi essayé le Application.ProcessMessages dans le FormShow juste avant d'appeler mes fonctions, mais celui-ci ne fonctionne pas : ma form apparaît uniquement lorsque tous les résultats sont calculés.

Re-bonjour,

Citation:

---

avec des Application.ProcessMessages dans ton traitement à chaque fois que tu veux forcer l'affichage

---

... l'autre jour il a été dit (me souviens plus dans quelle discussion) que Application.ProcessMessages donne le main à Windows pour traiter tout ce qui est en attente et que pour forcer uniquement l'affichage fallait utiliser un UpDate (ex : Edit1.UpDate). Non ?

A+ :D

Citation:

---

Envoyé par Cl@udius

@TicTacToe

Pourquoi un inherited ? Nous sommes sur une procédure TNotifyEvent.

---

Que ce soit TNotifyEvent ou pas ne change rien.
Je travaille surtout en héritage de form, j'ai mis le inherited pour garantir que le code de la fenêtre mère éventuelle soit appelé.

Mais je pense aussi qu'il y a de forte chance qu'il n'y en ait pas de fenêtre mère dans le code de notre ami, mais au cas ou, ca ne mange pas de pain ;)

@Gilbert
Honnetement Je sais plus pour le Application.ProcessMessages, mais il me semble que c'est uniquement pour l'application (mais il me semble seulement...)

Citation:

---

Envoyé par TicTacToe

Je travaille surtout en héritage de form, ...

---

Ok, ceci explique cela. Comme je n'ai pas cette habitude de travail, ça ne mettait pas venu à l'idée.

@+

Je marque le sujet comme résolu vu que la solution de Gilbert avec le Timer me convient.

Cependant je reste sur ma faim avec le Application.ProcessMessages, car cette solution ne fonctionne toujours pas chez moi. Donc peut-être à creuser encore pour éviter le léger temps d'attente dû au Timer.

quitte a utiliser le timer 1 fois, autant utiliser une methode un peu plus propre.

Ingrédients:
1 champ boolean "PremiereFois" dans ta classe

Préparation

• mettre PremiereFois a true au Create de ta form
• Sur le OnActivate, ajouter le code suivant:
  
  Code:

  ---

  1 2 3 4 5 6 7

  if Self.PremiereFois then begin PremiereFois := False; application.ProcessMessages; DemarrerLesCalculs; end;

  ---

PS: pense bien a mettre des application.processMessage de temps a autres dans tes calculs pour mettre a jour l'affichage.

Bonjour,

A MiJack :

Citation:

---

Cependant je reste sur ma faim ...
Donc peut-être à creuser encore pour éviter le léger temps d'attente dû au Timer.

---

... Bon maintenant que ça marche, réduis la valeur de la propriété Interval du Timer en passant de 1000 millisec à 500, puis 250 et ainsi de suite jusqu'au moment où ça coince : en tâtonnant tu finiras par trouver l'intervalle le plus bref avec lequel cela fonctinnera correctement. Il n'est pas interdit d'espérer que cet intervalle mini soit bigrement plus faible que les 1000 ms cités initialement par prudence mais avec un bécane qui pédalle à "N" Ghz il n'est certainement pas nécessaire de marquer une pause d'une seconde entière entre la fin du formShow et le if PremiereFois then évoqué par Guillemouze...

A+ :D

Citation:

---

Envoyé par Gilbert Geyer

... Bon maintenant que ça marche, réduis la valeur de la propriété Interval du Timer en passant de 1000 millisec à 500, puis 250 et ainsi de suite jusqu'au moment où ça coince : en tâtonnant tu finiras par trouver l'intervalle le plus bref avec lequel cela fonctinnera correctement.

---

Le timer reste une solution peu fiable. En effet, si sur une machine X, 100 ms sont necessaire pour afficher la forme et ensuite demarrer les calculs, sur une autre machine Y moins puissante, il en faudra peut etre 400 ms. Donc tu ne peux pas vraiment evaluer le temps qu'il te faudra attendre avant d'avoir ton affichage correct !

Citation:

---

Envoyé par Gilbert Geyer

mais avec un bécane qui pédalle à "N" Ghz il n'est certainement pas nécessaire de marquer une pause d'une seconde entière entre la fin du formShow et le if PremiereFois then évoqué par Guillemouze...

---

Tout a fait. Je dirais meme plus, il n'est pas necessaire du tout de marquer une pause avec ma methode, etant donné qu'elle a justement pour but de demarrer au moment "exacte" ou la forme est visible. Le timer n'est nullement necessaire avec ma methode 8O

Re-bonjour,

Citation:

---

Guillemouze a écrit : il n'est pas necessaire du tout de marquer une pause avec ma methode, etant donné qu'elle a justement pour but de demarrer au moment "exacte" ou la forme est visible. Le timer n'est nullement necessaire avec ma methode.

---

... Eh ben oui t'as raison :king:
... En fait je me suis laissé pièger par la lecture première ligne de ton message d'Hier 19h25 :

Citation:

---

quitte a utiliser le timer 1 fois, autant utiliser une methode un peu plus propre.

---

... puis j'ai sauté directement à la ligne if Self.PremiereFois then ... et j'en ai déduit que ce sera logé dans le OnTimer (ce n'est qu'en relisant aujourd'hui que j'ai pris conscience que ce sera placé dans le OnActivate) ;)

A+ :D

Alors le ProcessMessages ne fonctionne a priori pas ni dans le OnActivate, ni le OnCreate, ni le OnShow. J'ai également ajouté plusieurs ProcessMessages dans mes calculs, mais le tout ne s'affiche qu'à la fin de ceux-ci.

Pour le timer, j'ai laissé 500 millisecondes, ce qui devrait être une bonne moyenne, mais je suis conscient que ce n'est pas la solution la plus propre.

Bonjour,
Je viens de trouver une méthode pour résoudre ce problème que j'ai déjà rencontré plus d'une fois : C'est de définir un message utilisateur et d'envoyer ce message dans le OnShow de la form par un PostMessage :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

const WM_CALCUL = WM_USER + 1;   type   TForm1 = class(TForm) procedure FormShow(Sender: TObject); private procedure Calcul(var msg : TMessage);Message WM_CALCUL; public end;

---

Puis dans l'implementation :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Calcul(var msg: TMessage); begin ... end;   procedure TForm1.FormShow(Sender: TObject); begin PostMessage(Self.Handle,WM_CALCUL,0,0); end;

---

Le message WM_CALCUL sera traité après l'affichage de la fenêtre.
D'après mes tests, cette méthode fonctionne bien ... Qu'en pensez-vous ?
A+
Eb

pas bete du tout comme idée :king:
et ca me semble assez propre comme methode

bonjour,

j 'ai essayer la solution de ebastien , ca marche tres bien:king: