VPF::Описать в классе компоненты - Форум программистов

Moid

Дата 14.4.2006, 12:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 396
Регистрация: 27.3.2006

Репутация: нет
Всего: 3

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

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

)

MyFigure:=MyFigure.create(self);

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

--------------------

zalex

Дата 14.4.2006, 17:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 13.5.2005

Репутация: 2
Всего: 2

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

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »