fabrication de package Delphi6 - Delphi/Pascal - Programmation
Marsh Posté le 13-05-2002 à 11:04:19
procedure register;
faut un R majuscule à Register
C'est la seule fonction pour laquelle Delphi est case-sensitive, pour que les composants soient compatibles avec C++Builder.
Marsh Posté le 13-05-2002 à 11:17:09
EXAAAAAAAAACT !!
Merci beaucoup, une erreur comme ça j'aurais pu chercher longtemps !
Encore merci antp !
Marsh Posté le 13-05-2002 à 11:19:01
J'ai fait exactement la même erreur quand j'ai fait mon premier composant
Marsh Posté le 13-05-2002 à 11:01:56
Bonjour a tous
Je débute dans le dev de composant et je tente de fabriquer des packages de composants perso a la mode Delphi 6, comme indiqué dans l'excellent article d'Olivier Dahan sur la séparation entre les packages de conception et d'execution, j'ai voulu créer un exemple simple en héritant le composant TButton.
Je fabrique donc 2 packages distincts, l'un intégrant le composant lui meme (execution seulement) et l'autre ne faisant que l'enregistrer (conception seulement et package d'exec dans la clause requires), l'ennui c'est que lorsque j'installe le package de conception, il ne contient aucun composant et n'apparait pas dans la barre d'outils de l'IDE.
Je ne sais pas trop ce que j'ai oublié de faire.
Quelqu'un a-t-il une idée ?
Merci d'avance
A++
Laurent
PS ci-joint le bout de code
composant en execution seulement AuriRt60.dpk
Contains
AuriButton.pas
Requires
vcl.dcp
// --> fichier Auributton.pas
unit AuriButton;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls;
type
TAuriButton = class(TButton)
private
{ Déclarations privées }
protected
{ Déclarations protégées }
public
{ Déclarations publiques }
published
{ Déclarations publiées }
end;
implementation
end.
///////////////////////////////////////////
composant conception seulement AuriDg60.dpk
contains
AuriCompReg.pas
requires
AuriRt60.dcp
rtl.dcp
vcl.dcp
// --> fichier AuriCompReg.Pas
unit AuriCompReg;
interface
procedure register;
implementation
uses classes, AuriButton;
procedure Register;
begin
RegisterComponents('Auriga2',[TAuriButton]);
end;
end.