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]

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

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