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

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

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, 16h00

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, 16h03

Bonjour,

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

A+

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

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, 16h08

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.

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

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.

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

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, 16h14

@TicTacToe

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

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

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, 18h49

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