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 :
La Form2 :
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;
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;
Partager