Właśnie biorę się za pisanie własnych komponentów VCL i jak szybko zacząłem, tak szybko przerwałem.
unit DMC;
interface
uses
Windows, Messages, SysUtils, Classes;
type
DMC = class(TComponent)
private
protected
public
Constructor Create(AOwner: TComponent); override;
published
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Standard', [DMC]);
end;
{ DMC }
constructor DMC.Create(AOwner: TComponent);
begin
inherited;
end;
end.
Teraz biorę: Component --> Install Component --> Into New PackAges --> wybieram nazwe itd.. aż tu nagle:
<font color="blue">[Fatal Error] DMC.pas(1): Program or unit 'DMC.pas' recursively uses itself </span>
???????????