Bonjour à tous

Je suis nul avec les SplashScreen (entre autres).

J'ai effectué des recherches : http://delphi.developpez.com/faq/?pa...-splash-screen
et ici aussi : http://www.developpez.net/forums/search.php?searchid=2287951 , url conseillée par ShaireLeTroll.

Plus d'autres recherches sur le Net. Mais la plupart des splashscreen décrits sont exécutés au démarrage de l'application. D'où le recours à la modification du fichier DPR. Or, ce dont j'ai besoin, c'eest d'un splashscrenn durant l'exécution. En l'occurrence, une tâche assez longue.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
 
Procedure Appel;
begin
 
      Form2 := TForm2.Create(Application);
      Form2.Show;
      Sleep(3000);
      Form2.Free;
 
      Form1.Btn_Quitter.SetFocus;
end;
La Form2 :

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
 
 
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Label1: TLabel;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
 
end.

Là, elle ne fait rien. C'est juste un exemple. Mais la Form2 contient un TLabel affichant "Patientez". Or, on ne le voit pas.

Où est-ce que je plante ?

Merci

P.S.: rectification. L'instruction suivante affiche bien le label :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
procedure TForm2.FormActivate(Sender: TObject);
begin
      Form2.Label1.Update; 
end;