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

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

Динамическое создание объектов на форме. [D6, Win95/98, WinXP]

PC ©   (2004-10-11 22:26:00) 

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

---

Amoeba   (2004-10-14 11:08:00) [1]

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

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

---

PC   (2004-10-13 21:16:00) [2]

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

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

---

KSergey   (2004-10-13 07:01:00) [3]

> [9] PC   (12.10.04 22:45)

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

---

begin...end   (2004-10-12 22:47:00) [4]

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

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

---

PC   (2004-10-12 22:45:00) [5]

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

---

Vit@ly   (2004-10-12 20:52:00) [6]

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

---

Vit@ly   (2004-10-12 20:51:00) [7]

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

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

---

Vit@ly   (2004-10-12 20:47:00) [8]

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

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

---

PC   (2004-10-12 20:41:00) [9]

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

---

KSergey   (2004-10-12 07:56:00) [10]

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

---

Rouse_   (2004-10-11 23:02:00) [11]

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

---

saNat   (2004-10-11 22:47:00) [12]

Например, создаем 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 22:39:00) [13]

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

---

Наверх