Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

100 кнопок [D7, XP]

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

iXT (2006-12-11 14:58:00) [1]
И все создавал, поди в design-time :)

clickmaker (2006-12-11 14:47:00) [2]

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

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

Amoeba (2006-12-11 13:51:00) [3]

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

Жу-у-у-уть!

Anatoly Podgoretsky (2006-12-11 12:13:00) [4]
> lobach (11.12.2006 11:05:00) [0]

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

Max Zyuzin (2006-12-11 11:16:00) [5]
Хотя да к Sender-у рправильнее обращаться...

Dmitrij_K (2006-12-11 11:14:00) [6]
Если делать проверку, то так
if Sender is TButton then TButton(Sender).Visible := False

Max Zyuzin (2006-12-11 11:12:00) [7]
if (ActiveControl is TButton) then TButton(ActiveControl).Visible := False;
Все onClick у всех баттонов на этот обработчик повесить

Dmitrij_K (2006-12-11 11:12:00) [8]
if (ActiveControl is TButton) then - лишнее

Сергей М. (2006-12-11 11:08:00) [9]
Назначить один и тот же OnClick-обработчик для всех этих кнопок.

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

with TMyButton(Sender).Visible := False;

Сергей М. (2006-12-11 11:08:00) [10]
TMyButton(Sender).Visible := False;

Наверх

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