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

**MiJack** · 08/01/2008, 14h30

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 ?

**Gilbert Geyer** · 08/01/2008, 15h00

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+

**pitango** · 08/01/2008, 15h03

Bonjour,

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

A+

**Rayek** · 08/01/2008, 15h04

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

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.

**pitango** · 08/01/2008, 15h08

Envoyé par Rayek

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

oups!!

Effectivement, mauvais idée.

**TicTacToe** · 08/01/2008, 15h10

tu peux essayer, dans le formshow, de mettre ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

**Cl@udius** · 08/01/2008, 15h14

@TicTacToe

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

**MiJack** · 08/01/2008, 15h17

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.

**Gilbert Geyer** · 08/01/2008, 15h24

Re-bonjour,

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+

**TicTacToe** · 08/01/2008, 17h49

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...)

**Cl@udius** · 08/01/2008, 17h54

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.

@+

**MiJack** · 08/01/2008, 18h12

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.

**guillemouze** · 08/01/2008, 19h25

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**Gilbert Geyer** · 09/01/2008, 11h01

Bonjour,

A MiJack :

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+

**guillemouze** · 09/01/2008, 11h18

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 !

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

**Gilbert Geyer** · 09/01/2008, 11h55

Re-bonjour,

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

... En fait je me suis laissé pièger par la lecture première ligne de ton message d'Hier 19h25 :

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+

**MiJack** · 09/01/2008, 14h28

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.

**ebastien** · 09/01/2008, 16h04

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;