[lostbananan]

Есть 12 ЧекБоксов...
Суть в том - когда установил чекбокс для всех чекбоксов надло написать по-сути один и тотт же код, вернее в зависимости от того какой чекбокс выбран - такой и сценарий...
Как это сделать?
CheckBox1Click(Sender: TObject);
но мне в этой процедуре надо знать какой именно чекбокс выбран жто делать через свойство tag? но у TObject нет такого свойства! Что делать?

[Yurk@]

Код:

case (Sender as TCheckBox).Tag of
  1 : 
    begin
      ...
    end;
  2 : 
    begin
      ...
    end;
  n : 
    begin
      ...
    end;
end;

[lostbananan]

И эту процедуру надо объявлеть в общедоступной секции кода?

[Yurk@]

это не процедура.
создай одно событие OnClick общее для все CheckBox-ов и пихай туда сей шаблон, подправив его под свои требования.
ну и за разные значения свойства Tag у всех этих CheckBox-ов не забудь

[lostbananan]

А как мне найти все Групбокси со свойством таг от 1 до 4 например?

[Yurk@]

а зачем их искать?
в момент клика по чекбоксу (Sender as TCheckBox).Tag определит Tag того чекбокса по которому кликнули

[lostbananan]

Спасибо, все понял вроде...

Доброе утро. Родился еще один вопрос:
Для чекбоксво назначил один обработчик события (procedure TForm1.CheckBox1Click(Sender: TObject)
так вот у чекбоксов и групбксов в которых лежат данные чекбосы - одинаковые таги...
Если я выбрал чекбокс надо совершить некие изменениыя с групбоксом в котором лежит данны1й чекбокс..
Как это сделать?

[NumLock]

Код:

TCheckBox(Sender).Parent

Код:

CheckBox1.Parent

[Alegun]

Сообщение от lostbananan

...Если я выбрал чекбокс надо совершить некие изменениыя с групбоксом в котором лежит данны1й чекбокс..
Как это сделать?

Да вот хотя бы так:

Код:

((Sender as TCheckBox).Parent as TGroupBox).Font.Color:= clBlue;

Только не надо это применять к чекбоксам лежащим просто на форме, будут глюки.
З.Ы. Пока набивал, вездесущий (одна с :-) Нумлок опередил.