Discussion :

[deetox]

Bonjour...

( je tourne sous delphi 7 ).

J'ai une form ( FORM1 ) avec plein d'images qui se chargent dans le oncreate de FORM1. Je lance mon appli.. Le problème, c'est que lorsque FORM1 apparait, les images ne sont pas affichées ( et même avec une tempo avant d'afficher ca le fait ). En gros, ma form s'affiche toute pas belle et une fraction de seconde après, elle s'affiche avec toute les images correctement... Est il possible de ne pas afficher la fenêtre tant que tout les objets ne sont pas réellement chargés ?

Merci.

DeeTOX.

[tourlourou]

essaye dans le OnLoad ou Loaded de mettre l'affichage on

[deetox]

Oui mais ma form est une TForm et onloaded n'existe que pour les TCustomForm...

DeeTOX.

[portu]

si avant tous les chargement d'image (OnCreate), tu mets

Code :

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

1
2
3
4
 
Application.showMainForm := False;
///Instructions Chargement Images
Application.ShowMainForm := True;

[deetox]

Avant tout : Merci de m'aider !!!

Mais malheureusement, ca ne marche pas ! Exactement la même chose qu'avant !

DeeTOX.

[the_magik_mushroom]

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormCreate(Sender: TObject);
begin
application.ShowMainForm := false;
application.ProcessMessages;
//Instructions Chargement Images
application.ProcessMessages;
Application.ShowMainForm := True;
end;

essai d'ajouter des application.ProcessMessages;

[tourlourou]

et même avec une tempo avant d'afficher ca le fait

c'est pê que le Paint des TImages ne s'effectue qu'au moment du Show ; essaye un Image.Refresh avant le Form.Show

[deetox]

Ok, ca marche hyper bien le image.refresh... Je les place dans l'unité du projet... exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
 
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.Title := 'i-Xplore';
  Application.CreateForm(TForm1, Form1);
  form1.Image1.Refresh;
  form1.Image2.Refresh;
  form1.Image3.Refresh;
  form1.Image4.Refresh;
  form1.Image5.Refresh;
  form1.Image6.Refresh;
  form1.Image7.Refresh;
  form1.Image8.Refresh;
  form1.Image9.Refresh;
  form1.Image10.Refresh;
  form1.Image11.Refresh;
  form1.Image12.Refresh;
  form1.Image13.Refresh;
  form1.Image14.Refresh;
  form1.Image15.Refresh;
  form1.Image16.Refresh;
  form1.Image17.Refresh;
  form1.Image18.Refresh;
  Application.Run;
end.

Merci beaucoup de votre aide et joyeux noël !

DeeTOX.