Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Описать в классе компоненты

Автор: Moid 14.4.2006, 12:05

Код


unit Create_Figure;

interface

uses
    Windows, Classes, StdCtrls, ExtCtrls, Dialogs;

type
  TFigure = class (TImage)
  
  MyFigure: TImage;  //   -> когда начинаю создавать ошибку вызывает
  
   Procedure MyPr;
end;

var Figure: TFigure;
Implementation

Procedure TFigure.MyPr;
begin
  MyFigure:=MyFigure.create(self);
  MyFigure.parent:=Form1.parent;// на первую форму
end;

end.

Не врублюсь чё не так. Ошибка тоже левая (ошибка памяти)
Если всё описываю так же, но MyFigure: TImage; указав как глобальную переменную, то всё нормально создается, но события не пашут.

Писал по памяти возможны грамматические оценки! smile

Автор: Демо 14.4.2006, 12:57

Цитата(Moid @ 14.4.2006, 12:05

)

MyFigure:=MyFigure.create(self);

Это как понимать?

Автор: zalex 14.4.2006, 17:46

Опять я не совсем по теме лезу, но привязывать класс к конкретной форме (в вашем случае Form1)несколько некрасиво. Ну создайте Вы указатель на форму, значение которого надо указывать при создании экземпляра вашего класса, и это будет значительно красивее.

Теперь по теме. Когда ошибка возникает? Вы экземпляр класса создаёте? Желательно полный код, что то того, что здесь - явно недостаточно, ибо что бы использовать Ваш модуль - нужно немного пофантазировать, а в результате фантазий можно набрести на столько ошибок....