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]

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

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

Жу-у-у-уть!

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

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

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