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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 243 fois - Téléchargée 31 fois

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
yomane51100 Messages postés 69 Date d'inscription jeudi 8 juin 2006 Statut Membre Dernière intervention 17 septembre 2010
6 juil. 2006 à 15:18
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
michatmichien Messages postés 8 Date d'inscription vendredi 14 février 2003 Statut Membre Dernière intervention 4 novembre 2009
11 juin 2004 à 15:45
Un grand BRAVO pour cette source !

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

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

BRAVO

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

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.