Помогите с новым типом

← →
KPY (2002-08-12 06:49) [0]

Задача такая создать свой тип который содержит 2 рисунка и таймер. Таймер я уже вставил
MyTimer:=TTimer.Create(MyTimer);
MyTimer.Enabled:=false;
MyTimer.OnTimer:=MyTimerTimer;
MyTimer.Interval:=1000;
Почему то с Image так не получается. В Unit1.dfm нашел что картинка описывается так
object Image1: TImage
Left = 156
Top = 18
Width = 35
Height = 35
Picture.Data = {4269746D6170DA080000424DDA0800000000000036040000280000002100
************************************************************
000210000000100080000000000A40400000000000000000000000100000000
00000004000000080000000FF000000002000004020000080200000FF20
0000FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
FEFEFE000000}
Мне нужно отвязаться от конкретного файла т.е. чтобы описание картинки было в самом типе.
Пробовал по аналогии с таймером делать не работает. Куда думать?

← →
IlyaA (2002-08-12 07:35) [1]

Даю след. описание класса:

TMyClass = class //Получишь наследника TObject private vPic1: TImage; vPic2: TImage; vTimer: TTimer; public constructor Create; property Pic1: TImage read vPic1; property Pic2: TImage read vPic2; property Timer: TTimer read vTimer; end; Constructor TMyClass.Create; begin vPic1:=TImage.Create(self); //Указываешь владельца //в твоём примере владелец был-бы vPic1, тогда, при удалении //этого объекта, объект vPic1 остался бы жив. Почитай по подробней vPic2:=TImage.Create(self); vTimer:=TTimer.Create(self); vTimer.Enabled:=false; vTimer.OnTimer:=MyTimerTimer; vTimer.Interval:=1000; end;

← →
KPY (2002-08-12 09:05) [2]

Как создать типы я знаю у меня все работает когда я ложу на форму 2 имаджа а потом делаю так

type
MyImage = class(TObject)
Im : Timage;
Im1: TImage;
MyTimer:TTimer;
procedure MyTimerTimer(Sender: TObject);
constructor Create;
destructor Destroy;override;
private
{}
public
Num:integer;
end;
****
****
****
my.im:=form1.Image1;
так все работает

Но моя основная задача избавится от form1.Image1 а сделать как-нибудь типа
Picture.Data = {
07544269746D6170DA080000424DDA0800000000000036040000280000002100
0000210000000100080000000000A40400000000000000000000000100000000
0000000000004000000080000000FF000000002000004020000080200000FF20}
матерится мой делфи говорит нету у имаджа свойства пикчур

← →
ЮЮ (2002-08-12 09:46) [3]

Im.Picture.LoadFromFile();
Im.Picture.Bitmap.LoadFromXXX

Помогите с новым типом Найти похожие ветки