Скачать: CL | DM;

100 кнопок   Найти похожие ветки 

← →
lobach ©   (2006-12-11 11:05) [0]

У меня на форме 30 кнопок, при их нажатии на любую из кнопок, она изчезает (visible:=false). Как сделать так чтобы не писать 30 процедур?

---

← →
Сергей М. ©   (2006-12-11 11:08) [1]

Назначить один и тот же OnClick-обработчик для всех этих кнопок.

В обработчике этом написать

with TMyButton(Sender).Visible := False;

---

← →
Сергей М. ©   (2006-12-11 11:08) [2]

TMyButton(Sender).Visible := False;

---

← →
Max Zyuzin ©   (2006-12-11 11:12) [3]

if (ActiveControl is TButton) then TButton(ActiveControl).Visible := False;
Все onClick у всех баттонов на этот обработчик повесить

---

← →
Dmitrij_K   (2006-12-11 11:12) [4]

if (ActiveControl is TButton) then  - лишнее

---

← →
Dmitrij_K   (2006-12-11 11:14) [5]

Если делать проверку, то так
if Sender is TButton then TButton(Sender).Visible := False

---

← →
Max Zyuzin ©   (2006-12-11 11:16) [6]

Хотя да к Sender-у рправильнее обращаться...

---

← →
Anatoly Podgoretsky ©   (2006-12-11 12:13) [7]

> lobach  (11.12.2006 11:05:00)  [0]

Игру пишешь = Убери кнопку?

---

← →
Amoeba ©   (2006-12-11 13:51) [8]

> У меня на форме 30 кнопок

Жу-у-у-уть!

---

← →
clickmaker ©   (2006-12-11 14:47) [9]

> Игру пишешь = Убери кнопку?

на сапера похоже

---

← →
iXT ©   (2006-12-11 14:58) [10]

И все создавал, поди в design-time :)

---

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

Скачать: CL | DM;



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