1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. Fenêtre d'accueil au lancement d'un programme

Fenêtre d'accueil au lancement d'un programme

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 861 fois - Téléchargée 31 fois

Commenter

Contenu du snippet

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 / Exemple : 


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;

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
69
Date d'inscription
jeudi 8 juin 2006
Statut
Membre
Dernière intervention
17 septembre 2010
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
Signaler
Messages postés
8
Date d'inscription
vendredi 14 février 2003
Statut
Membre
Dernière intervention
4 novembre 2009
Un grand BRAVO pour cette source !

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

10/10
Signaler
Messages postés
291
Date d'inscription
dimanche 2 février 2003
Statut
Membre
Dernière intervention
30 juin 2006
Voilà l'astuce que j'ai toujours rêvé de maîtriser !

BRAVO

Inekman. 10/10 et cette note est un euphémisme.
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Kenavo)