Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

Динамическое создание объектов на форме.   Найти похожие ветки 

← →
PC   (2004-10-11 22:26) [0]

Собсна сабж: мне надо на этапе инициализации проги создать на форме некотрое число рисунков и флажков. И обрабытывать клики на них. Собсна как? Заранее спасибо.

---

← →
Rouse_ ©   (2004-10-11 22:39) [1]

У созданного объекта есть события - назначай на них обработчики плана...
Button.OnClick := MyClick()

---

← →
saNat ©   (2004-10-11 22:47) [2]

Например, создаем TImage:

//Сначала подключаем библиотеку...
Uses
...,ExtCtrls;
...
//Описание класса формы
TForm1=Сlass(TForm)
 Procedure FormActivate(Sender:TObject);
 Procedure FormClose(Sender:TObject; Var Action:TCloseAction);
Private
 //Создаваемый объект
 Risunok:TImage;
 //Обработчик щелчка мышью
 Procedure RisunokClick(Sender:TObject);
Ppublic
 {Public declarations}
End;
...

//Создание объекта при активации формы
Procedure TForm1.FormActivate(Sender:TObject);
Begin
Risunok:=TImage.Create(Self);
Risunok.Parent:=Form1;
Risunok.OnClick:=RisunokClick;
Risunok.Top:=9;
Risunok.Left:=9;
Risunok.Width:=300;
Risunok.Height:=200;
Risunok.Stretch:=True;
Risunok.Picture.LoadFromFile("D:\Graphika\Photo\Ералаш. Разные\EVA.bmp");
Risunok.Show;
End;

//Обработчик щелчка
Procedure TForm1.RisunokClick(Sender:TObject);
Begin
ShowMessage("Click!");
End;

//Уничтожаем созданный объект при закрытии формы
Procedure TForm1.FormClose(Sender:TObject; Var Action:TCloseAction);
Begin
Risunok.Free;
End;

Аналогично для "флажков"

С уважением...

P.S.: Поправьте пожалуйста, если я где не прав.

---

← →
Rouse_ ©   (2004-10-11 23:02) [3]

> P.S.: Поправьте пожалуйста, если я где не прав.
Все тютелька в тютельку ;)

---

← →
KSergey ©   (2004-10-12 07:56) [4]

Автору: читаем тут http://www.delphikingdom.com/helloworld/runtime_comp.htm

---

← →
PC   (2004-10-12 20:41) [5]

Да не, у меня заранее не известно их количество! Их много ! :)

---

← →
Vit@ly ©   (2004-10-12 20:47) [6]

> мне надо на этапе инициализации проги создать на форме некотрое
> число

Так создавай на этапе когда тебе это известно, или по мере необходимости

---

← →
Vit@ly ©   (2004-10-12 20:51) [7]

> мне надо на этапе инициализации проги создать на форме некотрое
> число рисунков и флажков

Так и создавай на этапе, когда определишься с некоторым числом

---

← →
Vit@ly ©   (2004-10-12 20:52) [8]

Сорри, инет глюкнул

---

← →
PC   (2004-10-12 22:45) [9]

Так нет, каждый раз, запустив прогу, мы можем получить разное кол-во пар картинок и флажков.

---

← →
begin...end ©   (2004-10-12 22:47) [10]

> мы можем получить разное кол-во пар картинок и флажков

Ну и что это меняет?

---

← →
KSergey ©   (2004-10-13 07:01) [11]

> [9] PC   (12.10.04 22:45)

Ерст... Ссылку из [4] читать будем?? Там же все разжевано!

---

← →
PC   (2004-10-13 21:16) [12]

> KSergey ©   (13.10.04 07:01) [11]

Угу, щас читну. Пасиба.

---

← →
Amoeba ©   (2004-10-14 11:08) [13]

> PC   (13.10.04 21:16) [12]
>
> > KSergey ©   (13.10.04 07:01) [11]
>
> Угу, щас читну. Пасиба.

Давно пора было это сделать и перестать ламерить.

---

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

Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.48 MB
Время: 0.033 c