Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

FENÊTRE D'ACCUEIL AU LANCEMENT D'UN PROGRAMME


Information sur la source

Catégorie :Exécution Niveau : Débutant Date de création : 28/04/2004 Vu : 4 180

Note :
10 / 10 - par 3 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

Description

Pour rajouter une fenêtre d'accueil au lancement de vos programmes - logo, image, ... -  créez une nouvelle form avec les propriétés suivantes :
Name : Accueil (ou autre)
BorderStyle : BsNone
Position : poScreenCenter
Dessinez ce que vous voulez dessus
Modifiez le source du projet comme montré dans le code
La fenêtre d'accueil sera affichée dès le lancement du programme, et sera effacée après le création de vos autres forms. Cela permet d'occuper l'écran en particulier lorsque les autres fiches sont longues à créer (important chargement de données, ...)


 

Source

  • program Project1;
  • uses
  • Forms,
  • Unit1 in 'Unit1.pas' {Form1},
  • Unit2 in 'Unit2.pas' {Form2},
  • Unit3 in 'Unit3.pas' {Form3},
  • Unit4 in 'Unit4.pas' {Form4},
  • Unit5 in 'Unit5.pas' {Form5},
  • Unit6 in 'Unit6.pas' {Accueil};
  • {$R *.RES}
  • begin
  • Application.Initialize;
  • // Creation de la form Accueil
  • with TAccueil.Create(nil) do
  • try
  • Show; // Affiche l'écran de démarrage Accueil
  • Update; // Force l'affichage de Accueil
  • // Creation des autres forms
  • Application.CreateForm(TForm1, Form1);
  • Application.CreateForm(TForm2, Form2);
  • Application.CreateForm(TForm3, Form3);
  • Application.CreateForm(TForm4, Form4);
  • Application.CreateForm(TForm5, Form5);
  • finally
  • Free; // ferme et libère l'écran de démarrage Accueil
  • end;
  • Application.Run;
  • end.
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Accueil};

{$R *.RES}

begin
  Application.Initialize;
  // Creation de la form Accueil
  with TAccueil.Create(nil) do
  try
    Show;   // Affiche l'écran de démarrage Accueil
    Update; // Force l'affichage  de Accueil
    // Creation des autres forms
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
    Application.CreateForm(TForm3, Form3);
    Application.CreateForm(TForm4, Form4);
    Application.CreateForm(TForm5, Form5);
  finally
    Free;  // ferme et libère l'écran de démarrage Accueil
  end;
  Application.Run;
end.

Conclusion

Pas d'animation dans la Form Accueil (ProgressBar ou autre) ! Application.Run n'a pas été éxécuté. On peut toutefois modifier l'écran d'accueil entre deux créations de fiches. Par exemple : On met un Tlabel (Label1) dans Accueil, et avant chaque CreateForm, on ajoute
Label1.Caption := 'Nouveau Texte';
Update;
 

Commentaires et avis

signaler à un administrateur
Commentaire de Inekman le 30/04/2004 10:58:33

Voilà l'astuce que j'ai toujours rêvé de maîtriser !

BRAVO

Inekman. 10/10 et cette note est un euphémisme.

signaler à un administrateur
Commentaire de michatmichien le 11/06/2004 15:45:44

Un grand BRAVO pour cette source !

Très bien ! En plus, c'est ce que je cherchais !

10/10

signaler à un administrateur
Commentaire de yomane51100 le 06/07/2006 15:18:44

il ma lere d etre tres bient mes le probleme c est que moi il me mes en rouges les morceaux suivant program  Project1; alord que c est exactement le meme non pour mon project

Ajouter un commentaire



Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,328 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.