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

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

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

mylasthit ©   (2010-08-03 16:55:00) 

Вобщем думаю-думаю, и никак не придумаю... Как реализовать програмное создание обьекта я знаю, но как управлять каждым из этих обьектов? к примеру мне нужно чтобы первая картинка была 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;

---

{RASkov}   (2010-08-03 17:30:00) [1]

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

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;

---

12   (2010-08-03 17:29:00) [2]

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

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

---

mylasthit   (2010-08-03 17:23:00) [3]

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

---

{RASkov}   (2010-08-03 17:22:00) [4]

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

Это не нужно

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

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

---

12   (2010-08-03 17:12:00) [5]

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

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

---

Наверх