Тема: Одна процедура реакции на событие
Показать сообщение отдельно
  #2  
Старый 16.02.2013, 20:34
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
  
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
По умолчанию
Код:
case (Sender as TCheckBox).Tag of
  1 : 
    begin
      ...
    end;
  2 : 
    begin
      ...
    end;
  n : 
    begin
      ...
    end;
end;
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Ответить с цитированием