Определение нажатой кнопки

← →
Duffik © (2005-08-27 17:54) [0]

Подскажите, плиз :)
Имеется 50 Speedbutton, в свойстве Tag каждой кнопки указано число. Как одной процедурой определить, какое там находиться число и вывести его в Label

← →
begin...end © (2005-08-27 17:59) [1]

Каждому из экземпляров TSpeedButton назначить один и тот же обработчик OnClick, сделав его методом, например, формы:

procedure TMyForm.SpeedButtonClick(Sender: TObject);
begin
Label.Caption := IntToStr(TComponent(Sender).Tag)
end.

Определение нажатой кнопки Найти похожие ветки