Создание экземпляра класса

[biohazard120]

Здравствуйте уважаемые форумчане. Столкнулся с проблемой в delphi.
Задача такая: необходимо создать экземпляр класса, который наследует класс TImage.
Вот пример моего кода с использованием constructor, но объект не создается. Прошу прощения заранее если вопрос глупый, так как с классами я знакомлюсь буквально второй день

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  TNewYearObject = class(TImage)
  public
    constructor Create(Owner: Tcomponent);override;
  end;
var
  Form1: TForm1;
  Object1: TNewYearObject;

implementation

{$R *.dfm}
constructor TNewYearObject.Create(Owner: Tcomponent);
begin
inherited Create(Owner);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Object1:=TNewYearObject.Create(Form1);
end;

end.

Надеюсь на Вашу помощь.

[Somebody]

По какому принципу определяешь, что он не создаётся?

[biohazard120]

Попытался присвоить ему значение: эффект - пустая форма

Только что попытался снова - EAccessViolation

Код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  TNewYearObject = class(TImage)
  public
    constructor Create(Owner: Tcomponent);override;
  end;
var
  Form1: TForm1;
  Object1: TNewYearObject;

implementation

{$R *.dfm}
constructor TNewYearObject.Create(Owner: Tcomponent);
begin
inherited Create(Owner);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  img1:TPicture;
begin
Object1:=TNewYearObject.Create(Form1);
img1.LoadFromFile('1.jpg');
Object1.Picture:=img1;
end;

end.

[Somebody]

Только что попытался снова - EAccessViolation

Variable 'img1' might not have been initialized как бы должно на что-то намекать...

[biohazard120]

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

Variable 'img1' might not have been initialized как бы должно на что-то намекать...

И как же я инициализирую переменную типа TPicture?

В случае

img1.Create;

Происходит переполнение стека

[p51x]

И как же я инициализирую переменную типа TPicture?

Создав объект класса TPicture, не?

В случае
Код:

img1.Create;

Происходит переполнение стека

Нет. Вы бредите. происходит обращение к неинициализированному указателю. Откройте учебник и узнайте, как создаются объекты классов.

[biohazard120]

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

Создав объект класса TPicture, не?


Нет. Вы бредите. происходит обращение к неинициализированному указателю. Откройте учебник и узнайте, как создаются объекты классов.

Уже разобрался с переполнением стека. Все было гораздо проще:

Object1.Picture.LoadFromFile();

Но теперь возникла старая проблема: объект по-прежнему не создается.
Пробовал

Object1.Left:=1; Object1.Top:=1;

Не помогает

[Пепел Феникса]

покажите как вы его создаете.

[biohazard120]

Сообщение от Пепел Феникса

покажите как вы его создаете.

Вот код конструктора(напоминаю что класс TNewYearObject наследует класс TImage):

constructor TNewYearObject.Create(Owner: Tcomponent);
begin
inherited Create(Owner);
end;

Вот собственно кусок кода где я создаю объект:

procedure TForm1.FormCreate(Sender: TObject);
begin
Object1:=TNewYearObject.Create(Form1);
Object1.Picture.LoadFromFile('1.jpg');
Object1.Left:=1;
Object1.Top:=1;
end;

Ну и сам объект, объявленный в разделе var

  Object1: TNewYearObject;

[Аватар]

Parent не мешало бы задать. Без него фиг его знает где ему отображаться