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

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

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)