Здравствуйте, Михаил Голованов, Вы писали:
МГ>Статья:
МГ>Авторы:
МГ> Михаил Голованов
МГ>Аннотация:
МГ>В статье рассматриваются основные стадии построения компонентов Delphi на примере создания собственного controla-а
Берем пример из статьи один в один:
unit uCoolLabel;
interface
uses
SysUtils, Classes, Controls, StdCtrls;
type
TmgCoolLabel = class(TLabel)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
published
{ Published declarations }
property Height default 30;
property Width default 85;
end;
procedure Register;
implementation
код вырезан для экономии места
end.
и при попытке установить компонент Component-Install component...
получаем следующую ошибку:
[Fatal Error] uCoolLabel.pas(1): Program or unit 'uCoolLabel.pas' recursively uses itself
Delphi 7, все настройки по умолчанию, установка полная.