| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Image [D5, Win95/98]

SergeyD ©   (2002-07-20 20:22:00) 

Please, подскажите как создать Image c дополнительными пользовательскими полями, чтоб он реально появлялся на форме при загрузке. Что-то не получается..

---

SergeyD   (2002-07-22 19:47:00) [1]

Спасибо, работает!

---

Skier   (2002-07-22 19:35:00) [2]

>SergeyD


type

TMyImage = class(TImage)
public
MyFiled: Boolean;
end;

TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
FMyImage : TMyImage;
end;

var
Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
FMyImage := TMyImage.Create(Self);
FMyImage.Parent := Self;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
FMyImage.Free;
end;


---

SergeyD   (2002-07-22 19:29:00) [3]

type

TMyImage = class(TImage)
public
MyFiled: Boolean;
end;

TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;

var
Form1: TForm1;
MyImage: TMyImage;

implementation
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin

MyImage.Create(form1); //error!

end;

---

Skier   (2002-07-22 19:18:00) [4]

>SergeyD
Давай код класса !


> Пробовал через Create - не получается (ошибка с памятью).
>


Покажи как пробовал.

---

SergeyD   (2002-07-22 19:16:00) [5]

Я не знаю как создать объект-потомок Image в ходе работы программы. Подскажите как правильно описать потомок с одним дополнительным полем MyFiled: Boolean и как в процессе работы программы по событию например TForm1.Button1Click этот Image показать на форме. Пробовал через Create - не получается (ошибка с памятью).

---

Anatoly Podgoretsky   (2002-07-21 18:28:00) [6]

Населдник п правильной секции MyFiled : Type

---

Song   (2002-07-21 18:27:00) [7]

Type MyImage=class(TImage)... и т.д.
Чего сложного-то? Чего именно не получается?

---

SergeyD   (2002-07-21 17:31:00) [8]

Нужен потомок TImage c дополнительным полем /MyFiled: integer/.
Не получается создать сам визуальный объект-потомок, т.е. картинку на форме с моим дополнительным полем MyFiled.

---

Anatoly Podgoretsky   (2002-07-21 16:12:00) [9]

Насчет полей объяснись

---

Song   (2002-07-21 16:04:00) [10]

Вопрос не понятен. При какой загрузке должно появляться? TImage+2TEdit ?

---

Наверх