Discussion :

[bvsud]

Bonjour à tous

J'ai un module EXE, ds un prog, chargeant un fichier un peu lourd. Ca prend 3 secondes, mais ça va augmenter avec la taille du fichier. Il me faudrait afficher une fenêtre de démarrage pendant ce temps-là.

J'avais vu passer la technique sur le site de Michel Bardou il il y a... des années, et maintenant que j'en ai besoin, plus moyen de la retrouver !

Je préfère ça pr l'instant plutôt que retaper un peu un autre module EXE , celui générant le fichier en question.

Même Google ne me renvoie rien là-dessus...

[Archimède]

tu veux un splashscreen en fait ?

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
 
program Project1; 
uses
Forms,
Windows, //Ajout de l'unité "Windows" pour la fonction sleep
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
 Form2:= TForm2.Create(Application); //Crée la fenêtre Form2
try 
 Form2.Show; //Affiche Form2
 Application.Initialize; 
 Form2.Refresh; //Redessine Form2
 Sleep(3000); //Attend 3 secondes
 Application.CreateForm(TForm1, Form1);
 Form2.Hide; //Cache la form2
finally
 Form2.Free; //Libère Form2
end; 
Application.Run; 
end.

[ShaiLeTroll]

Michel Bardou de Phidels, ça se trouve tout seul pourtant !
Google "Michel Bardou" renvoie en 1er Lien Phidels, après suffit d'ouvrir les yeux !

Sinon, la FAQ de Developpez.com

[bvsud]

tu veux un splashscreen en fait ?

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
 
program Project1; 
uses
Forms,
Windows, //Ajout de l'unité "Windows" pour la fonction sleep
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
 Form2:= TForm2.Create(Application); //Crée la fenêtre Form2
try 
 Form2.Show; //Affiche Form2
 Application.Initialize; 
 Form2.Refresh; //Redessine Form2
 Sleep(3000); //Attend 3 secondes
 Application.CreateForm(TForm1, Form1);
 Form2.Hide; //Cache la form2
finally
 Form2.Free; //Libère Form2
end; 
Application.Run; 
end.

@ShaiLeTroll : j'ai fini par trouver.
@Archimède : OK ! Je me débattais en partant du code de M. Bardou en le modifiant. Mais pas si bien que toi. Je vais tester ça

[bvsud]

tu veux un splashscreen en fait ?

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
 
program Project1; 
uses
Forms,
Windows, //Ajout de l'unité "Windows" pour la fonction sleep
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
 Form2:= TForm2.Create(Application); //Crée la fenêtre Form2
try 
 Form2.Show; //Affiche Form2
 Application.Initialize; 
 Form2.Refresh; //Redessine Form2
 Sleep(3000); //Attend 3 secondes
 Application.CreateForm(TForm1, Form1);
 Form2.Hide; //Cache la form2
finally
 Form2.Free; //Libère Form2
end; 
Application.Run; 
end.

Ca marche, mais pas comme je le voulais. Impossible d'exécuter des instructions de Unit1 pendant l'affichage du SplashScrean .

Voici le code de project1.DPR :

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,
  Windows,  //Ajout de l'unité "Windows" pour la fonction sleep
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
 
{$R *.res}
 
 
begin
  Form2 := TForm2.Create(Application); //Crée la fenêtre Form2
  try
      Form2.Show; //Affiche Form2
       Application.Initialize;
       Form2.Refresh; //Redessine Form2
       Sleep(3000); //Attend 3 secondes
                    // Mais pendant ce temps-là les instructions de Unit1 ne s'exécutent pas.
                    // Or, c'est ce que je voulais : ce n'était pas simplement décoratif...
       Application.CreateForm(TForm1, Form1);
       Form2.Hide; //Cache la form2
 
  finally
     Form2.Free; //Libère Form2
 
end;
 
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

Voici l'erreur que me retourne Windows sitôt que j'appelle les premières instructions de Unit1 :

[Linkin]

Le sleep est de trop. Il fait attendre le programme jusqu'à ce que le temps soit écoulé.

Pour le message d'erreur, tu essayes de faire un SetFocus, alors que Form1 n'est pas encore visible.

[Cl@udius]

Salut

@bvsud
Il est bancale ce .dpr.

Tu as 2 Application.Initialize, et tu crées deux fois Form1 et Form2.
Tu te retrouves avec 2 instances de TForm1.

@+ Claudius