Форум: "Основная";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c