Problème translation Delphi 2007 vers RAD Studio XE

Version imprimable

11/08/2011, 19h39
colorid

Problème translation Delphi 2007 vers RAD Studio XE

Bonjour,

Après que XE ait mis à jour les sources 2007, la compilation s'est correctement déroulée mais problème à l'exécution :

La version 2007 utilise une SplashForm qui fonctionne parfaitement en lançant la form principale

La version XE lance également la form principale mais celle-ci disparait presqu'aussitot ! et comme naturellment la SplashForm ne comporte pas de bouton de sortie l'application reste bloquée sur cette dernière.

Qualqu'un a-t'il une idée pour comment utiliser une SplashForm sous XE ?

Merci à tous de me dépaner
12/08/2011, 09h00
Rayek

Sans un bout de code pour montrer comment tu fais l'appel du splashscreen, il va être difficile de te répondre

Partie source du projet :
Code:

1 2 3 4 5 6 7 8 9 10 11 begin Application.Initialize; Application.MainFormOnTaskbar := True; Application.Title := 'PEEK_VIDEO'; SplashForm:= TSplashForm.Create(Application); { Création la fenêtre de Splash } SplashForm.Show; { Affichage de cette fenêtre } SplashForm.Update; { forçage de l'affichage de la fenêtre } { sinon elle n'apparaît que partiellement } Application.CreateForm(TFullScreen, FullScreen); Application.Run; end.
Sous D2007 SplashForm apparaît le temps que FullScreen se crée puis quand FullScreen est créé FullScreen s'affiche définitivement. SplashForm ne s'affiche pas à la sortie de fullscreen

Sous XE avec le même code source, SplashForm apparaît le temps que FullScreen se crée puis quand FullScreen est créé FullScreen ne s'affiche que quelques secondes et SplashForm réapparait

12/08/2011, 10h27
ouiouioui

avant Application.Run;
il faudrait un SplashForm.Free;
ou un SplashForm.Close; avec dans le
OnClose du splashform Action := caFree;
Tu la ferme ou ta form splash la ? 8O

essaye comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'PEEK_VIDEO';
  with TSplashForm.Create(nil) do { Création la fenêtre de Splash               }
  begin
    Show();                                 { Affichage de cette fenêtre                  }
    Update();                               { forçage de l'affichage de la fenêtre        }
  end;
                                                     { sinon elle n'apparaît que partiellement     }
  Application.CreateForm(TFullScreen, FullScreen);
  Application.Run;
end.

Dans le OnClose du TSplashForm, met caFree comme action !
caFree va libérer la fenêtre via Release() sans besoin d'avoir un Owner et with te dispense de la mise à nil de la référence

Merci ouiouioui et ShaiLeTroll,

Voici le code qui fonctionne correctement sous XE

Code:

1
2
3
4
5
6
7
8
9
10
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'PEEK_VIDEO';
  SplashForm:= TSplashForm.Create(Application); { Création la fenêtre de Splash               }
  SplashForm.Show;                                 { Affichage de cette fenêtre                  }
  SplashForm.Update;                               { forçage de l'affichage de la fenêtre        }
                                                     { sinon elle n'apparaît que partiellement     }
  Application.CreateForm(TFullScreen, FullScreen);
  SplashForm.Free;
  Application.Run;

Apès avoir placé dans le Onclose de SplashForm :
Action := caFree;

Merci mille fois, je coche résolu