Spécification des composants

Remonter à Ecriture de la procédure Register

Dans la procédure Register, transmettez les noms de composant dans un tableau ouvert, que vous pouvez construire dans l’appel à RegisterComponents.

RegisterComponents('Miscellaneous', [TMyComponent]);

TMetaClass classes[1] = {__classid(TNewComponent)};

Vous pouvez aussi recenser plusieurs composants sur la même page ou différents composants sur des pages distinctes, comme l’illustre le code suivant :

procedure Register;
begin
  RegisterComponents('Miscellaneous', [TFirst, TSecond]);            { deux sur cette page... }
  RegisterComponents('Assorted', [TThird]);                         { ...un sur une autre... }
  RegisterComponents(LoadStr(srStandard), [TFourth]);    { ...et un sur la page Standard }
end;

TMetaClass classes[2] =
{__classid(TNewComponent), __classid(TAnotherComponent)};

//Une autre manière d'ajouter un composant au tableau
TMetaClass classes[2];
classes[0] = __classid(TNewComponent);
classes[1] = __classid(TAnotherComponent);