Определение нажатой кнопки [D7]
Duffik © (2005-08-27 17:54:00)
Подскажите, плиз :)
Имеется 50 Speedbutton, в свойстве Tag каждой кнопки указано
число. Как одной процедурой определить, какое там находиться число
и вывести его в Label
begin...end (2005-08-27 17:59:00) [1]
Каждому из экземпляров TSpeedButton назначить один и тот же
обработчик OnClick, сделав его методом, например, формы:
procedure TMyForm.SpeedButtonClick(Sender: TObject);
begin
Label.Caption := IntToStr(TComponent(Sender).Tag)
end.
Наверх 
ЧАТ |
Орешник |
|
