xpmich
Messages postés62Date d'inscriptionlundi 29 novembre 2004StatutMembreDernière intervention11 mars 2010
-
28 oct. 2005 à 08:00
cs_yanb
Messages postés271Date d'inscriptionlundi 27 octobre 2003StatutMembreDernière intervention 7 juillet 2022
-
29 oct. 2005 à 11:52
Sous la version Delphi 7 :
Je voudrais rélaliser l'affichage d'un écran de démarrage.
Je sais qu'il faut utiliser un timer.
Est ce quelqu'un puet me donner le code à taper pour cela.
merci d'avance.
cs_yanb
Messages postés271Date d'inscriptionlundi 27 octobre 2003StatutMembreDernière intervention 7 juillet 202214 28 oct. 2005 à 20:37
Salut xpmich,
le plus simple serait en fait de passer directement au debut de l'initialisation de ton prog, je m'explique :
Dans ta fiche project1 ( tu fais CTRL + F12 et tu choisi project1 )
Program Project1;
Uses
Windows,Forms,
Unit1 in 'Unit1.pas'{Form1)
Unit2 in 'Unit2.pas'{SplashScreen);
{$R *.Res}
Begin
SplashScreen:=TSplashScreen.Create(Application);//Création de la fenetre SplashScreen
SplashScreen.Show;//Affichage fenetre
SplashScreen.Update;//MAJ
Sleep(2000);//Tempo 2 Seconde
Application.CreateForm(TForm1,Form1);
SplashScreen.Close;//Fermeture fenetre SplashScreen
SplashScreen.Release;//Destruction fenetre
Application.CreateForm(TSplashScreen,SplashScreen);
Application.Run;
End;
Normalement ca doit etre ca.
Bonne Prog,
Ytaz,alias Yanb
jlen100
Messages postés1606Date d'inscriptionsamedi 10 juillet 2004StatutMembreDernière intervention25 juillet 201413 28 oct. 2005 à 08:36
salut je te cite l'exemple donné dans l'aide DELPHI:
"
Les deux gestionnaires d'événement suivants affichent, puis ferment une
fiche appelée SplashScreen avant l'ouverture de la fiche principale de
l'application. La constante Startup est déclarée dans la partie
interface de Form1. Le premier gestionnaire d'événement appelle la
méthode Show de SplashScreen à partir de l'événement OnActivate de
Form1.
Exemple Delphi
procedure TForm1.FormActivate(Sender: TObject );
begin
if Startup then
begin
Startup := False;
SplashScreen.Show;
end;
end;
SplashScreen contient un composant Timer dont la propriété Interval a
la valeur 3000. La fiche est donc affichée trois secondes, puis se
ferme. La méthode Close de la fiche est attachée à l'événement OnTimer
du composant OnTimer.
Exemple Delphi
procedure TForm2.Timer1Timer(Sender: TObject );
begin
Close;
end;
"
bonne prog;
Vous n’avez pas trouvé la réponse que vous recherchez ?
xpmich
Messages postés62Date d'inscriptionlundi 29 novembre 2004StatutMembreDernière intervention11 mars 2010 28 oct. 2005 à 12:08
Merci d'avoir fait un copier coller de l'aide Delphi ! le probleme c'"est que je ne comprend pas ce code.
Ce que je ne comprend pas, c'est ca :
La constante Startup est déclarée dans la partie interface de Form1.
Qu'est ce que : SplashScreen et constante Startup,Comment les définir, les déclarer? comment déclaré dans l'interface ? (Ps: j'ai déjà été voir ca dans l'aide interface mais je ne le comprend pas non plus ! désolé !
jlen100
Messages postés1606Date d'inscriptionsamedi 10 juillet 2004StatutMembreDernière intervention25 juillet 201413 28 oct. 2005 à 14:59
le splashsreen c'est la form qui contiendra ton ecran de demarrage tu peux remplacer splashscreen par Form2
tu declare startup dans la partie implementation
var
...//la tu as les declarations de form1,form2.....
...
startup:boolean= true; // tu l'initalise
le code devient:
procedure TForm1.FormActivate(Sender: TObject );
begin
if Startup then
begin
Startup : = False;// on met à false pour qu'il ne s'execute qu'au lancement
form2.Show;
end;
end;
xpmich
Messages postés62Date d'inscriptionlundi 29 novembre 2004StatutMembreDernière intervention11 mars 2010 28 oct. 2005 à 16:58
OK, je comprend maintenant, mais lorsque je vais faire Form2.show, je vais afficher la form2, ensuite je vais quitter la procédure
TForm1.FormActivate
je vais avoir la Form2 qui sera afficher et la from1 par dessus car une fois quitter la procédure précédente, form1 s'affichera , non?
(je sais pas si mon résonnement est bon !!)
Etape :
activation From1
startup à vrai
affichage de Form2
(quittte procédure tform1.formactivate)
affichage de form1 (par desuus form2) !!!!!!
fermeture de form2 apres l'écoulement du timer.
or moi je voudrai, si possible :
activation From1
startup à vrai
affichage de Form2
fermeture de form2 apres l'écoulement du timer.
affichage de form1
merci beaucoup d'avance pour l'explication de splashscreen et sa déclaration.
Merci d'avance.