Создание N кол-ва обьектов, кодом и редактирование каждого обьект

← →
mylasthit © (2010-08-03 16:55) [0]

Вобщем думаю-думаю, и никак не придумаю... Как реализовать програмное создание обьекта я знаю, но как управлять каждым из этих обьектов? к примеру мне нужно чтобы первая картинка была Close, вторая ссыль, и тд..... пример кода:

privat:verCreated: boolean;
Var:RunTimeImages: array [1..10] of TImage;

procedure TForm1.Button1Click(Sender: TObject);
var
i: Byte;

begin
if verCreated then
exit;
verCreated := true;
for i := 1 to 10 do
begin
RunTimeImages[i] := TImage.Create(Self);
with RunTimeImages[i] do
begin
Parent := Form1;
name := "Images" + IntToStr(i);
Top := i * Height;
Tag := i;

Visible := True;
Image1.Picture.LoadFromFile("source/img/cx.bmp");
end;
end;
end;

← →
12 © (2010-08-03 17:12) [1]

> чтобы первая картинка была Close

что это значит? При нажатии форма закрылась?

← →
{RASkov} © (2010-08-03 17:22) [2]

> name := "Images" + IntToStr(i);

Это не нужно

> Image1.Picture.LoadFromFile("source/img/cx.bmp");

Это как раз не это) (name := "Images" + IntToStr(i);)
Вот это тебе нужно:
TImage(RunTimeImages[i]).<методы и свойства TImage>...

← →
mylasthit © (2010-08-03 17:23) [3]

Ну этим кодом создается список изображений(10шт). Как управлять Каждым из этих обьектов из кода. Допустим создаю 10 рисунков, у первого в онклике будет одно, у второго другое, и тд. У меня неполучается управлять созданными обЪектами... Делфа говорит незадеклорированы.

> у первого в онклике будет одно, у второго друго

один из вариантов
Case TImage(sender).tag of
1: Form.Close
2: Сылка.Open

т.е. и приведение даже не нужно... вот так:

privat:verCreated: boolean; Var:RunTimeImages: array [1..10] of TImage; procedure TForm1.Button1Click(Sender: TObject); var i: Byte; begin if verCreated then exit; verCreated := true; for i := 1 to 10 do begin RunTimeImages[i] := TImage.Create(Self); with RunTimeImages[i] do begin Parent := Form1; Top := i * Height; Tag := i; //Visible := True; Picture.LoadFromFile("source/img/cx.bmp"); end; end; end;

Создание N кол-ва обьектов, кодом и редактирование каждого обьект Найти похожие ветки