Discussion :

[Wilco]

Bonjour à tous,

J'ai un programme dont le temps de chargement est long. J' aimerai afficher une fenêtre 'Loading'. Sur le forum j'ai bien trouvé un post qui décrit les actions suivantes :

1- Tu lock la form principale (Enabled := False)
2- Tu affiche la form de chargement (un show pas un showmodal)
3- Tu lances les actions avec si tu veux un affichage de l'etat dans la form de chargement
4- à la fin du traitement, tu hide la form de chargement et tu delock la form principale.


J'ai essayé, la fenêtre 'Loading' s'affiche mais l'image que j'y ai placé ne s'affiche pas.

L'ouverture de ma fenêtre 'loading ' a été placée dans le OnActiVate de la form1.

Quelqu'un a til une solution ?

Merci d'avance,
Wilco

[TicTacToe]

un Application.ProcessMessages entre 2 et 3 ET/OU un Application.ProcessMessages dans la form non modale ?

[Wilco]

Merci Tic tac mais je ne vois pas comment faire .

[TicTacToe]

Application.ProcessMessages traites les messagesde la file d'attente.
Ce qu'il se passe peut-être pour toi,
C'est que tu affiche ta form non modale avec le dessin (messages dessiner), puis ca passe tout de suite au code de ta form principal, avec du traitement lourd surement. --> le message dans ta form non modale 'Dessiner' n'a pas eu le temps d'être appelé avant ton traitement lourd qui prend toutes les ressources.

Dans le OnShow, de ta form non modale, essaye de mettre le code

Code :

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

Application.ProcessMessages

normalement ceci forcera le traitement de tous les messages, y compris 'dessiner' avant ton traitement lourd.

Si ca ne fonctionne pas sur le Show, essaye de mettre ce code, juste après l'appel de ta form non modale.

[Wilco]

Bonjour à tous,

Quelqu'un aurait il une idée à me proposer ?


Merci d'avance,
Wilco

[Pedro]

Salut
Essaie d'ajouter un Update dans le OnShow de ta TForm de chargement.

[Jipété]

B'soir,

Je confirme l'update (que j'utilise) :

Code :

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

1
2
3
4
5
6
procedure Tfrm_Splash.FormCreate(Sender: TObject);
begin
  show;                                              // Affiche la feuille,
  update;                                            // et l'image ! (Forcé)
  Application.CreateForm(TMainForm, MainForm);       // Passe la main
end;

HTH,
JP