Скачать: CL | DM;

Image   Найти похожие ветки 

← →
SergeyD   (2002-07-20 20:22) [0]

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

---

← →
Song ©   (2002-07-21 16:04) [1]

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

---

← →
Anatoly Podgoretsky ©   (2002-07-21 16:12) [2]

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

---

← →
SergeyD   (2002-07-21 17:31) [3]

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

---

← →
Song ©   (2002-07-21 18:27) [4]

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

---

← →
Anatoly Podgoretsky ©   (2002-07-21 18:28) [5]

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

---

← →
SergeyD   (2002-07-22 19:16) [6]

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

---

← →
Skier ©   (2002-07-22 19:18) [7]

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


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


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

---

← →
SergeyD   (2002-07-22 19:29) [8]

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:35) [9]

>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:47) [10]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.007 c