Minimiser une appli à son lancement
Bonjour,
Je suis sur un projet composé de plusieurs fenêtres:
- fmMian, form principale
- fmBrowser,
- fmconfig,
- etc...
Je voudrais, au démarrage de mon application, que celle-ci soit réduite à l'état d'icone tray.
Pas de problème pour l'icone, tout est déja fait et géré, par contre, je déspère à masquer, dès le départ ma fiche fmMain...
Voici le code de mon projet (le fichier .dpr):
Code:
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
| program TEST;
uses
Forms,
splash in 'splash.pas' {SplashForm},
Main in 'Main.pas' {fmMain},
Browser in 'Browser.pas' {fmBrowser},
Config in 'Config.pas' {fmConfig},
Utils in 'Utils.pas',
SysUtils,
AlertMsg in 'AlertMsg.pas' {AlertMsgF},
GUI in 'GUI.pas',
save in 'save.pas',
OgMessages in 'OgMessages.pas',
global in 'global.pas',
crypt in 'crypt.pas',
HSLUtils in 'HSLUtils.pas';
{$R *.res}
var
SplashForm : TSplashForm;
i: integer;
begin
Application.Initialize;
Application.ShowMainForm := FALSE; // Ceci devrait, théoriquement, masquer mes fiches, mais avec ou sans, c'est pareil
// Création d'une splash form
SplashForm := TsplashForm.create(application);
SplashForm.Show;
SplashForm.Update; // Force le dessin du splash screen
try
Application.Title := 'Test';
// Le sleep permet d'afficher ma splash form au moins 1 seconde
Sleep(1000);
SplashForm.close;
// Ici, je créer mes différentes fiches
Application.CreateForm(TfmMain, fmMain);
Application.CreateForm(TfmBrowser, fmBrowser);
Application.CreateForm(TfmConfig, fmConfig);
Application.CreateForm(TAlertMsgF, AlertMsgF);
// Et la, je masque les fiches secondaires
fmBrowser.Hide;
fmConfig.Hide;
finally
SplashForm.Release;
end;
Application.Run;
end. |
Le problème, c'est que malgrès l'utilisation de Application.ShowMainForm := FALSE;, ma fiche fmMain est visible.
J'ai alors tenté de masquer la fiche en utilisant fmMain.hide, mais on a quand même le temps d'appercevoir la fiche avant que celle-ci soit masquée... Pas très esthétique!
Je ne sais vraiment plus quoi faire, j'ai regardé sur pas mal de sites, mais rien n'y fait, je dois vraiment avoir un problème de compréhension sur la création des fiches au lancement de l'application...
Bref, j'aurais besoin d'un coup de main, je reste à disposition pour apporter tout complément d'information!
Merci d'avance
Problème pour minimiser une appli à son lancement
Bonjour,
As-tu essayé de mettre la propriété Visible de ta fiche principale à false ? (Tout en conservant la ligne "Application.ShowMainForm := False" dans le source de ton projet)
Tu la repositionne la propriété à True lorsque tu veux la rendre visible.
J'ai fait le test, chez moi ça fonctionne.
Bon courage.
Manu.
