L'environnement de programmation ouvert de Delphi est basé sur l'utilisation de divers composants. Un composant est un code qui exécute une tâche spécifique à l'aide de propriétés, d'événements et de procédures. Lors de la création d'un composant, vous devez définir les valeurs des variables et implémenter le code des gestionnaires d'événements. Pour être utilisé dans le programme, le nouveau composant doit être inclus dans le package de projet.
Il est nécessaire
Environnement de développement Delphi
Instructions
Étape 1
Sélectionnez le type de composant à créer. Il peut s'agir d'un élément Windows, d'un élément graphique, d'un objet de contrôle ou d'un composant non visuel. De plus, votre objet peut hériter de n'importe quelle classe existante. Décidez des fonctions que vous affecterez au composant à mettre en œuvre.
Étape 2
Démarrez l'environnement de développement Delphi. Dans le menu principal de l'application, ouvrez les éléments Composant, Nouveau composant. Dans la boîte de dialogue qui s'affiche, dans le champ Type d'ancêtre, sélectionnez la classe de composant que vous souhaitez modifier. Si vous n'utilisez pas l'héritage, dans le champ Nom de classe, entrez simplement un nom pour le nouveau composant qui commence par la lettre "T". Dans le champ Page de la palette, écrivez le nom de l'onglet du composant après l'installation, puis cliquez sur le bouton Créer une unité. L'environnement de développement générera automatiquement un modèle pour le nouveau composant. Un exemple du code Pascal généré:
unité MyBtn;
interface
les usages
Windows, SysUtils, messages, classes, contrôles, graphiques, formulaires, StdCtrls, boîtes de dialogue;
taper
TMyBtn = classe (TButton)
privé
protégé
Publique
publié
finir;
procédure Registre;
la mise en oeuvre
procédure Registre;
commencer
RegisterComponents ('MyComponents', [TMyBtn]);
finir;
finir.
Dans le même temps, non seulement une nouvelle classe TMyBtn a été formée sur la base de la classe standard du bouton TButton, mais la procédure d'enregistrement d'un nouveau composant dans la palette de composants est également décrite.
Étape 3
Dans la directive privée, décrivez tous les champs, procédures et fonctions dont vous avez besoin pour créer le composant, et ils auront le statut masqué. Précisez le nom du champ (avec la lettre "F"), son type. Par exemple, un enregistrement de la forme FDatas: entier décrit une variable FDatas de type entier. Dans la section protégée, répertoriez les gestionnaires d'événements dont vous avez besoin, par exemple, à partir des appuis sur les touches du clavier ou de la souris. De plus, lors de l'héritage d'une classe, vous devez définir le mot-clé override - pour chevaucher le gestionnaire parent de l'événement standard. Par exemple, la procédure de saisie Clic; override garantit que le clic de souris sur le bouton est intercepté.
Étape 4
Les fonctions et procédures du composant à la disposition de l'utilisateur sont décrites dans les directives publiques et publiées, par exemple à l'aide d'un enregistrement de la forme: fonction TSysInfo. GetUser: chaîne ou propriété MachName: chaîne. Dans la dernière directive, lorsque vous utilisez le mot propriété, vous pouvez spécifier les propriétés qui seront disponibles dans l'inspecteur d'objets.
Étape 5
Écrivez le code réel pour le fonctionnement du composant dans les procédures et fonctions déclarées. Exemple de code de gestionnaire:
fonction MachName: chaîne;
var
p: entier;
avec: PChar;
commencer
c: = stralloc (p);
finir;
finir.
Étape 6
Installez le composant dans le projet dont vous avez besoin. Dans le menu principal de Delphi, sélectionnez Composant, Installer le composant. Dans la boîte de dialogue qui apparaît, ouvrez l'un des onglets: Dans un package existant, si vous souhaitez installer le composant dans un package existant, ou Dans un nouveau package - dans un nouveau. Cliquez sur OK et confirmez la demande de l'application d'écraser le package (si nécessaire). Après cela, le composant écrit sera prêt à être utilisé.
