Возвращение имени нажатого объекта

[Максим La]

Добрый день.
У меня 20 чекбоксов, которые я создаю массивом.

TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Ndatch: tlabel;
…
public
    sh: array [0..19] of tcheckbox;
…
for i := 0 to 19 do
    begin
sh[i]:=tcheckbox.Create(groupbox1);
      sh[i].Top:=49+i*24;
      sh[i].Caption:='';
      sh[i].Height:=24;
      sh[i].Width:=20;
      sh[i].Left:=18;
      sh[i].Parent:=groupbox1;
…

Далее в зависимости от того на какой чекбокс я нажимаю, должно произойти определенное действие. Но я не пойму: как определить на какой именно я нажимаю чекбокс. Пробую так:
ndatch.caption:=(sender as tcheckbox).Name;
Такой способ не работает. Выводит на экран пустое место.
Если пробовать ndatch.caption:=(sender as tcheckbox).ToString; то выводит на экран: “TcheckBox”.
Пробовал по onmousedown на groupbox1, хотел в зависимости от от места нажатия по большому групбоксу, определить какой чекбокс стоит. Но тогда чекбоксы загоражимают место клика и групбокс клика не видит. В таком случае нужно рисовать кнопки на самом групбоксе канвасом, тогда наверно сработает, но хочется както по нормальному.
Как же все-таки правильно определить объект клика? Должен же быть простой способ.

[Serge_Bliznykov]

ndatch.caption:=(sender as tcheckbox).Name;

а покажите место в вашем коде, где Вы при создании очердного чекбокса присваиваете ему Name ?

допишите в коде что-то вроде:

sh[i]:=tcheckbox.Create(groupbox1);
sh[i].Name := 'MyCheck'+IntToStr(i+1);
sh[i].Top:=49+i*24;

а по сути, да, всё верно делаете...

[Yurk@]

может всё-таки имеет смысл вместо имени заполнять

sh[i].Tag := i;

а потом создать общее OnClick для всех CheckBox-ов в котором

case TCheckBox(Sender).Tag of 
  0 : ;
  1 : ;
  // и т.д.
end;

пс. хотя и нормальное имя компоненту не помешает)

[Reimscher]

Сообщение от Yurk@

может всё-таки имеет смысл вместо имени заполнять

sh[i].Tag := i;

а потом создать общее OnClick для всех CheckBox-ов в котором

case TCheckBox(Sender).Tag of 
  0 : ;
  1 : ;
  // и т.д.
end;

пс. хотя и нормальное имя компоненту не помешает)

Тоже в таких случая предпочитаю использовать Tag.