Не рисует наследуемый класс.

[TwiX]

Помогите разобраться:

unit Unit2;

interface

uses
  ExtCtrls, Classes,Dialogs;

type
  TCap = class(TImage)
  private
    { Private declarations }
  public
    //конструктор
		constructor Create(AOwner: TComponent); override;
		//деструктор :)
		destructor  Destroy; override;
  end;


implementation

constructor TCap.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  left:=10;
  top:=10;
  width:=100;
  height:=20;
  Canvas.LineTo(10,50);
end;

destructor TCap.Destroy;
begin
  inherited;

end;

end.

2) Нужно ли писать
inherited Create(AOwner); или достаточно просто inherited?

3) Чувствую, там не хватает parent'a... Но не смог найти чему его присвоить из свойств AOwner =\

1)Из первого юнита создаю объект так:

var
  cap:TCaptcha;
begin
  cap:=TCaptcha.Create(self);
end;//это всё button1.click

Но ничего не происходит (Т.е. экземпляр создаётся, но не рисует Canvas.LineTo(10,50)

[Alex Cones]

 TCap = class(TImage)

cap:TCaptcha;

???

[TwiX]

Ой) Это я когда сюда писал переправлял. Так тож не робит (В том смысле, что я по другому не пробовал)

Добавлено: Parent точно её не надо добавлять?

[Daramant]

Parent конечно нужен, это же визуальный компонент:

constructor TCap.Create(AOwner: TComponent);
begin
  inherited;
  left:=10;
  top:=10;
  width:=100;
  height:=20;
  Canvas.LineTo(10,50);
  Parent := Form1; 
end;

inherited Create(AOwner); или достаточно просто inherited?

Можно просто inherited.
inherited Create(AOwner); так нужно если у предка несколько конструкторов, без этого компилятор не будет знать какой вызвать.

[TwiX]

Сообщение от Daramant

Parent конечно нужен, это же визуальный компонент:

constructor TCap.Create(AOwner: TComponent);
begin
  inherited;
  left:=10;
  top:=10;
  width:=100;
  height:=20;
  Canvas.LineTo(10,50);
  Parent := Form1; 
end;

Можно просто inherited.
inherited Create(AOwner); так нужно если у предка несколько конструкторов, без этого компилятор не будет знать какой вызвать.

А по AOwner можно получить родителя? ведь мы же передаём self - по сути form1. А что бы сделать Parent := Form1; , нужно подключать unit1.

[Daramant]

Parent и Owner имеют различное назначение.
Parent - это объект-контейнер, который содержит данный объект.
Например Parent-ом может быть форма(TForm), панель(TPanel), группбокс(TGroupBox) и другие контейнеры.
Визуально - это тот объект, на котором будет расположен твой.

Owner - это объект-владелец, он отвечает за уничтожение твоего объекта, когда будет уничтожен сам. Owner можно не назначать, но тогда тебе придется самому уничтожать твой объект.

Теперь по коду:
Вынеси Parent в параметр конструктора и не будет проблем:

type
  TCap = class(TImage)
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent; AParent: TWinControl);
    destructor  Destroy; override;
  end;

constructor TCap.Create(AOwner: TComponent; AParent: TWinControl);
begin
  inherited Create(AOwner);
  left:=10;
  top:=10;
  width:=100;
  height:=20;
  Canvas.LineTo(10,50);
  Parent := AParent;
end;

destructor TCap.Destroy;
begin
  inherited;

end;

Использование:

var
  c: TCap;
begin
  c := TCap.Create(Self, Self);
end;

Конечно Parent можно присвоить и так:

Parent := TWinControl(AOwner);

Но, думаю, мой вариант будет более гибок.

[TwiX]

Сделал так:

parent:=AOwner as TWinControl;

=)

[Daramant]

Это эквивалентные формы:
Parent := TWinControl(AOwner);
Parent := AOwner as TWinControl;
Разница в том, что во втором случае дополнительно происходит проверка типов.