Comment créer ses propres composants ?

Pour créer un composant, il faut aller dans « Composant » puis « Nouveau composant ». Une boîte de dialogue apparaît. Vous devez d'abord choisir le type ancêtre de votre composant. Il faut choisir la classe de base qui correspond le plus au type de composant à créer. Pour notre exemple, on va prendre la classe TCustomLabel.

On utilise donc la classe TCustomLabel au lieu de TLabel. On change ensuite le nom de classe du composant à créer. Dans notre exemple, on choisira : TAdvancedLbl. Le champ « Page de palette » permet de spécifier l'endroit où votre composant apparaîtra, dans la palette. Là, je vous laisse le choix. Vous pouvez le mettre où vous voulez. Si vous créez beaucoup de composants, je vous conseille de tous les regrouper dans une même palette. Le fichier unité indique le nom du fichier où sera enregistré le code. Ce n'est pas la peine de le changer. Cliquez sur OK.

Le code source doit s'afficher. Vous trouvez dedans la procédure Register. Elle sert à recenser les composants, en leur indiquant leur nom et le nom de la page de la palette des composants. Normalement, vous n'avez pas à y toucher.

Il faut indiquer quelles sont les propriétés du TLabel que l'on va utiliser. Car, comme on a choisi le TCustomLabel, il nous faut trier les propriétés. Il faut les redéclarer dans la partie published. Cela nous donne :

published
  { Déclarations publiées }
  property Align;
  property Alignment;
  property Anchors;
  property AutoSize;
  property BiDiMode;
  property Caption;
  property Color;
  property Constraints;
  property DragCursor;
  property DragKind;
  property DragMode;
  property Enabled;
  property FocusControl;
  property Font;
  property ParentBiDiMode;
  property ParentColor;
  property ParentFont;
  property ParentShowHint;
  property PopupMenu;
  property ShowAccelChar;
  property ShowHint;
  property Transparent;
  property Layout;
  property Visible;
  property WordWrap;
  property OnClick;
  property OnContextPopup;
  property OnDblClick;
  property OnDragDrop;
  property OnDragOver;
  property OnEndDock;
  property OnEndDrag;
  property OnMouseDown;
  property OnMouseMove;
  property OnMouseUp;
  property OnStartDock;
  property OnStartDrag;
end;

Bien sûr, ne vous embêtez pas à tout retaper. Il vous suffit d'aller voir le code source du TLabel et de faire un copier/coller des propriétés. Maintenant, notre composant est identique à un TLabel. Vous pouvez déjà le tester. Pour cela, enregistrez votre fichier. Allez dans « Composant » puis « Installer un composant ». Sélectionnez le fichier dans le champ « Nom d'unité » et validez. Le composant devrez être ajouté dans la palette des composants, à la page que vous aviez choisie au début. Ajoutez le composant sur un nouveau projet. Faites ce que vous voulez avec, modifiez ses propriétés, normalement, il doit réagir comme un TLabel. C'est déjà une première étape.

C'est déjà bien. Mais, il faut maintenant ajouter des fonctions, procédures et méthodes pour qu'il se distingue du TLabel. Pour cela, on va ajouter l'option de clignotement. La fréquence sera modifiable via l'inspecteur d'objet. On déclare les variables suivantes dans la partie private :

private
  FFlashEnabled: Boolean; // s'il vaut True, le clignotement est activé
  FFlashRate:    Integer; // période entre 2 clignotements, en millisecondes
  Timer:         TTimer;  // Timer qui sert pour le clignotement

N'oubliez pas d'ajouter « ExtCtrls » dans la liste uses, car le Timer est défini dans le fichier « ExtCtrls.dcu » Ensuite, il faut déclarer les procédures qui seront appelées à chaque fois que la propriété changera :

protected
  procedure SetFlashEnabled(AFlashEnabled: Boolean);
  procedure SetFlashRate(AFlashRate: Integer);

Et enfin, on déclare les propriétés :

published
  property FlashEnabled: Boolean read FFlashEnabled write SetFlashEnabled default True;
  property FlashRate: Integer read FFlashRate write SetFlashRate default 800;

Il nous reste à entrer le code correspondant :

procedure TAdvancedLbl.SetFlashEnabled(AFlashEnabled: Boolean);
begin
  // On affiche la nouvelle valeur
  FFlashEnabled := AFlashEnabled;
  // On (dés)active le Timer
  Timer.Enabled := FFlashEnabled;
end;

procedure TAdvancedLbl.SetFlashRate(AFlashRate: Integer);
begin
  // On affiche la nouvelle valeur
  FFlashRate := AFlashRate;
  // On assigne au Timer le nouvel interval
  Timer.Interval := AFlashRate;
end;

Il reste le plus important : le code du Timer qui fera clignoter notre TAdvancedLbl. Ajoutez donc ceci :

protected
  procedure OnTimer(Sender: TObject); virtual;

{...}

procedure TAdvancedLbl.OnTimer(Sender: TObject);
begin
  Visible := not Visible;
end;

N'essayez pas encore le composant, car il génèrera une erreur. En effet, il faut créer le Timer en mémoire. On le fera lors de la création du composant. Ajoutez :

constructor Create(AOwner: TComponent); override;

dans la partie public. Et copiez le code suivant :

constructor TAdvancedLbl.Create(AOwner: TComponent);
begin
  inherited;
  FFlashEnabled := True;
  FFlashRate := 800;
  Timer := TTimer.Create(Self);
  Timer.Interval := FFlashRate;
  Timer.OnTimer := OnTimer;
end;

On profite de la création du composant pour initialiser toutes les variables, ainsi que le Timer. Maintenant, vous pouvez tester le composant, en faisant varier les différents paramètres…

Astuce : Elle vous sera sûrement très utile si vous continuez à faire des composants : la propriété ComponentState. Elle permet de détecter si on est en mode conception ou pas. On l'utilise ainsi :

If csDesigning in ComponentState then {instructions}

Dans cet exemple, les instructions ne sont exécutées que si on est en mode conception.

Le composant doit maintenant être fonctionnel. Si vous avez des problèmes, vous pouvez le télécharger (ici). Il est un peu plus complet que l'exemple décrit, en ce sens qu'il possède une propriété supplémentaire : il a la faculté de pouvoir changer de couleur (aléatoirement) à chaque fois.

Si vous avez aimé ce cours, ou même si vous ne l'avez pas aimé, ce serait sympa de … Merci !

Un mot d'encouragement ou un compliment fait toujours plaisir.