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

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

Динамическое создание кнопок [D7, WinXP]

Привет ©   (2005-08-17 23:10:00) 

Здравствуйте. Динамически создаю на форме 10 кнопок, присваиваю им имена (типа Btn1, Btn2 ...). Как прописать событие OnClick у таких кнопок, чтобы при работе программа распознавала какая именно кнопка нажата (хотя бы её номер) ? Заранее спасибо.

---

afanasic   (2005-08-18 09:33:00) [1]

Создаешь процедуру

procedure TForm1.MyOnClick(Sender: TObject);
begin
 // как написал DrPass
 if (Sender as TButton).Name='Btn1' then
   DoSomething;
end;

Далее при условии, что Btn1{BtnX}.Parent = Form1
BtnX.OnClick := MyOnClick;

все...

---

Pasha L   (2005-08-17 23:25:00) [2]

Советую использовать свойство tag у TButton (он используется по усмотрунию юзера). При создании кнопок в него можно записывать номер кнопки.

---

DrPass   (2005-08-17 23:14:00) [3]

if (Sender as TButton).Name='Btn1' then...

---

Наверх