Un programme Windows soigneusement écrit affiche des précautions de démarrage, appelée Splash Screen. En utilisant un peu de contenu, vous pouvez ajouter beaucoup de couleur à l'affichage du programme.
Étant donné que le projet lui-même crée la fenêtre principale du programme et que l'écran de pulvérisation de démarrage doit apparaître avant la création de la fenêtre principale, le fichier du projet doit créer son propre écran de démarrage. Cela signifie que l'utilisateur doit modifier le code source pour créer le fichier de projet, qui n'est généralement pas requis dans la programmation Delphi. Le processus suivant introduit le processus de configuration d'un écran de pulvérisation.
1. Démarrez un nouveau projet. Nommez le formulaire MainForm et définissez sa propriété de légende sur splashindemo. Enregistrez ce projet dans un répertoire, tel que C: ProjectsSplashin. Nommez l'unité MainForm main et nommez le fichier de projet Splashin.
2. Insérez un composant de bouton dans Mainform. Modifiez la propriété du nom de Button en exitbutton et sa propriété de légende pour sortir. Créez un processeur pour l'événement OnClick d'Exitbutton, en insérant une instruction étroite entre les mots clés de début et de fin du processus.
3. Sélectionnez la commande Fichier | Nouveau formulaire ou cliquez sur le bouton de vitesse du nouveau formulaire. Ajoutez un nouveau formulaire.
4. Modifiez la propriété du nom de ce formulaire pour éclabousser et supprimer sa propriété de légende. De plus, modifiez sa propriété Borderstyle en bsnone et définissez les trois sous-valeurs sous Borderricons à False.
5. Enregistrer ce projet. Lorsque Delphi invite le lecteur à fournir le nom du fichier unitaire, assurez-vous que le répertoire actuel est le répertoire correct. Entrez Splash pour le nom de fichier unitaire de Splashform.
6. Définissez la propriété activée de Splashform sur FALSE. C'est l'un des rares cas où les utilisateurs ne veulent pas fournir des commandes de clavier et de souris à Windows. Dans cet exemple, nous voulons que le programme ait un contrôle total sur l'affichage de Splashform.
7. Étant donné que la fenêtre n'a pas de contour, insérez un objet de composant conique à partir de la classe de composants supplémentaires. Cela aide à définir les bords de la fenêtre. Définissez la propriété Align de Bevel1 sur Alclient. Dans le même temps, modifiez la propriété de forme de l'objet en bsframe et changez sa propriété de style en bsrained. Ces valeurs sont déterminées par l'utilisateur.
8. Insérez les composants que vous souhaitez utiliser dans Splashform, n'insertez aucun boutons ou autres contrôles interactifs ici. L'application elle-même affiche et supprime la boîte de dialogue Démarrer la bafouillage.
9. Sélectionnez le menu du projet. Mettez en surbrillance le menu contextuel du projet Splash. Sélectionnez la commande Options. Dans la boîte de dialogue Généré des options de projet, sélectionnez l'étiquette de page Forms. Notez que Mainform et Splashform sont dans la liste de formulaires créée automatiquement. Mettez en surbrillance chaque formulaire et cliquez sur le bouton droit de la souris pour le déplacer vers le formulaire disponible. Tous les formulaires Delphi sont automatiquement créés en mémoire lors de l'exécution, qui consomme des ressources de mémoire et système. Dans un tel cas, le programme crée le formulaire lors de l'exécution et le lecteur doit supprimer le formulaire de la liste créée automatiquement. Fermez la fenêtre ProjectOptions.
10. Ensuite, modifiez le code source du projet pour afficher la boîte de dialogue pulvérisation avant d'afficher la fenêtre principale. Ici, vous devez insérer des instructions dans le fichier du projet pour correspondre au fichier du projet Splash.dpr. Le code source du projet est le suivant:
Programme Project3;
usages
Formes,
main dans 'main.pas' {mainform},
Splash dans 'Splash.pas' {Splashform};
{$ R * .res}
Commencer
Splashform: = tsplashForm.Create (application);
Splashform.show;
Splashform.update;
Application.CreateForm (tmainForm, MainForm);
Splashform.close;
Application.run;
fin.
11. Si le programme est compilé et exécuté à ce moment, il affichera et supprimera la boîte de dialogue de démarrage de démarrage très rapidement, afin que l'utilisateur n'ait pas la chance de le voir. Pour forcer la boîte de dialogue à rester visible pendant quelques secondes, sélectionnez la principale forme du programme. Créez un processeur pour la commande OnCreate de la forme. Ajoutez une variable entière longue appelée stoptime avant le mot clé. Insérez deux instructions entre Begin and End: l'une est un appel à la fonction Windows GetTickCount. Définissez Stoptime sur le nombre de secondes que Windows est en cours d'exécution; La liste des programmes est la suivante:
unité principale;
interface
usages
Windows, messages, systèmes, classes, graphiques, contrôles, formulaires, dialogues,
Stdctrls;
taper
Tmainform = class (tform)
EXITBUTTON: TBUTTON;
procédure eXitButtonClick (expéditeur: tobject);
Procédure FormCreate (expéditeur: tobject);
Privé
{Déclarations privées}
publique
{Déclarations publiques}
fin;
var
Mainform: tmainform;
Mise en œuvre
{$ R * .dfm}
procédure tmainform.exitbuttonclick (expéditeur: tobject);
Commencer
fermer;
fin;
procédure tmainform.formCreate (expéditeur: tobject);
var
Stoptime: Longint;
Commencer
stoptime: = getTickCount div 1000;
tandis que ((getTtickCount div 1000) ＜ (stoptime + 2)) faire
Sommeil (1);
fin;
fin.
12. Appuyez sur F9 pour compiler et exécuter le programme.