Fichier de compilation de la partie 5 (page 12)
Notre exemple suivant est un programme écrit dans VCL (Visual Component Library) dans l'IDE. Ce programme forme automatiquement des fichiers Windows et Resource Frame, vous ne pouvez donc pas compiler à partir d'un seul fichier source. Mais il illustre une caractéristique importante de la langue Delphi. En plus de plusieurs unités, les classes et les objets peuvent être utilisés.
Ce programme comprend un fichier de projet et 2 nouveaux fichiers unitaires. Tout d'abord, le fichier du projet est le suivant: Greatting du programme; utilise des formulaires, unit1, unit2; {$ r * .res} // Cette directive relie le fichier de ressources du projet. à l'instance d'application globale // appelle l'instance d'application globale application.Initialize; application.CreateForm (TForm1, Form1); application.CreateForm (TForm2, Form2); application.run; end.in One, notre programme est nommé salutation. Il a utilisé 3 fichiers unitaires. Les formulaires font partie de VCL;
Ce programme appelle une série d'objets appelés application, qui est une instance de la classe Tapplication définie dans l'unité de formulaire. (Chaque projet génère automatiquement un objet d'application.) Deux méthodes nommées CreateForm Call à partir de Tapplication. Le premier appel CreateForm pour créer Form1 est une instance de la classe TFORM1 définie dans Unit1. Le deuxième appel CreateForm, crée Form2 et définit une instance de la classe TFROM2 dans Unit2. 10Unit1 ressemble à ceci: Unit1 ressemble à ceci: unité unit1; Interfaceus Sysutils, Types, Classes, Graphics, Controls, Forms, Dialogs; TypeTform1 = Class (TForm) Button1: TBUTTON; Procedure Button1Click (Sender: Tobject); End; Tform1; implémentationuses unit2; {$ r * .dfm} procédure tform1.button1click (expéditeur: tobject); TFORM1 contient un bouton ButtonButton1, une instance de la classe TBUTTON et un processus nommé Button1Click, qui est appelé lorsque l'utilisateur clique sur Button1. Button1Click cache Form1 pour afficher Form2 (en appelant Form2.ShowModal).
Form2 est une unité définie 2 dans unité 2; TForm2; Implementation11USES UNIT1; {$ R * .DFM} Procédure TForm2 TFORM2 contient un bouton (une instance de CancelButton, une instance de TButton) et une zone de texte (une instance de Label1, une instance de Tlabel). Vous ne pouvez pas voir ce formulaire dans le code source, sauf que Label1 montre le titre Read Hello World!
TFORM2 déclare et définit une méthode AnnuleButtonClick, qui est appelée lorsque l'utilisateur appuie sur Cancelbutton lors de l'exécution. Ce processus (avec Form1.Button1Click dans Unit1) est appelé gestionnaire d'événements. Parce que c'est un événement qui a répondu à la course du programme. Les poignées d'événements sont des événements spéciaux définis dans les fichiers de formulaire Form1 et Form2. Lorsque le programme de salutation commence à fonctionner, Form1 est affiché et Form2 est masqué. (Par défaut, seule la première fenêtre créée dans le fichier de projet est visible au moment de l'exécution, et elle s'appelle la fenêtre principale du projet.) Lorsque l'utilisateur appuie sur le bouton dans Form1, Form2 montre Hello World! Écoutez la chaleur élevée. Lorsque l'utilisateur appuie sur le bouton Cancelbutton ou le bouton Fermer de la barre de titre, Form2 est fermé.