Форум: "Начинающим";
Текущий архив: 2006.12.31;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.12.31;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.045 c
