Обработчик OnClick у массива кнопок

[_SERGEYX_]

Мне раньше говорили, что в таких случаях с tag нужно работать

Очень даже удобно работать с tag-ом. При создании кнопок добавь в код

a[i].Tag:= i; //!!!
a[i].OnClick:=MyClick;

А в процедуре MyClick напиши

case (sender as TButton).Tag of
1: ;//код для первой кнопки
2: ;//код для второй кнопки
...
end;

[MyLastHit]

Спасибо всем большое!)

[ArtGrek]

for i:=1 to 30 do
begin
a[i]:=TButton.Create(self);
a[i].Name:='b'+inttostr(i);
a[i].Parent:=form1;
a[i].Width:=25;
a[i].Height:=25;
a[i].Top:=424;
a[i].Caption:=inttostr(i);
a[i].OnClick:=ButtonsClick
try
a[i].Left:=24+a[i-1].Left;
except
a[i].Left:=30;
end;

procedure TForm1.ButtonsClick(Sender: TObject);
var
  Obiekt: TObject; // для сохранения нажатои до етого кнопки, в 1 раз = nil
begin
  TButton(Sender).Enabled:=False;
// если объект не пуст
  if Obiekt<>nil then TButton(Obiekt).Enabled:=True;
   Obiekt:=Sender; //пересохраняем нажатую кнобку
end;

вроди должно работать

[VIK_aka_TOR]

а в каком еменно месте отслеживается какая кнопка нажата из массива?
по как узнается это i для

a[i].tag:=15;
a[i].OnClick:=a_click;

плиз разъясните... очень нужно...

[VIK_aka_TOR]

разъясните плиз откуда узнаваеться i элемента массива , над которым производят данные действия...

a[i].tag:=15;
a[i].OnClick:=a_click;

и где это "распознование писать"...

[VIK_aka_TOR]

разъясните плиз...очень нужно... в этом вся загвоздка в курсаче...