Текущий архив: 2005.09.18;
Скачать: CL | DM;

Вниз

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

← →
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.

---

Страницы: 1 вся ветка

Текущий архив: 2005.09.18;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.044 c