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

[MyLastHit]

Я конечно поимаю - всех уже забадал за сегодня но у меня остался, возможно последний вопрос...
Создаю массивом кнопки(30 шт, массив локальный в процедура создания формы):

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:=??????
try
a[i].Left:=24+a[i-1].Left;
except
a[i].Left:=30;
end;

Хочу сделать так чтобы при нажатии на i-ую кнопку, ее Enabled становился False, а у всех остальных кнопок массива Enabled становился true...
Пытался самостоятельно написать обработчик, но ничего не получается...
Мне раньше говорили, что в таких случаях с tag нужно работать, но я плохо понимаю, что это такое, а тем более не умею этим правильно пользоваться...И кстати...думал массив обьявить как глобальный, но фигня какая то - все эти кнопки смещаются как то косо.

[BOBAH13]

1. Каждый обработчик имеет параметр Sender
2. Пример это может выглядеть так

if (Sender is TButton) then (Sender as TButton).Enabled := False;

UPD:

очу сделать так чтобы при нажатии на i-ую кнопку, ее Enabled становился False, а у всех остальных кнопок массива Enabled становился true...

Может я не понимаю чего, но это попросту не реализуемо, т.к. у вас цикл от 1 до 30 и где участвует, как счетчик, именно i, и вопрос в таком случае просто не имеет смысла.

3. А еще есть свойство Tag - для хранения чего угодно.

[Kotofff]

А может лучше "одна нажата - остальные отжаты" ?

[MyLastHit]

(Sender as TButton).Enabled := False;

Спасибо! Это ведь действие с определенной кнопкой? А как на все кнопки массива разом подействовать через обработчик? Ну те сначала сделать у всех enabled:=true; а потом у нажатой enabled:=false.

А может лучше "одна нажата - остальные отжаты" ?

Мне бы принцип понять, а там "Нажата, отжата, активна, неактивна и тд" уже дело вкуса... Но сейчас нужно именно с Enabled работать...

[vovk]

procedure Tform1.a_click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 30 do
begin
if a[i]=sender then
  a[i].Enabled:=false
  else
  a[i].Enabled:=true;
end;
end;

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

это надо?

[MyLastHit]

Массив a[1..30] у меня локальный внутри процедуры создания формы...

[Аватар]

type
  TForm1 = class(TForm)
    ...
    procedure ButtonClick(Sender: TObject);
  private
    ...
    a: array[1..30] of TButton;  //перетащить массив сюда
  public
  end;
...
procedure TForm1.ButtonClick(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 30 do TButton(Sender).Enabled:=TButton(Sender)<>a[i];
end;

Массив a должен быть проинициализирован как в #1

[MyLastHit]

Аватар, перенес массив в приваты, написал твой код, эфекта - 0...

Абдейт: Основываясь на твоем коде и на коде Вован13, вот что написал, насколько правильно ХЗ, но работает...

for i:=1 to 30 do a[i].Enabled:=true;
if (Sender is TsButton) then (Sender as TsButton).Enabled := False;

[Аватар]

Извини ошибся:

for i:=1 to 30 do a[i].Enabled:=TButton(Sender)<>a[i];

[vovk]

Массив a[1..30] у меня локальный внутри процедуры создания формы...

ну можно так

procedure TForm1.a_click(Sender: TObject);
var
i:integer;
owner_:TForm;
begin
owner_:= ((sender as TButton).Owner as TForm);
for i:=0 to owner_.ControlCount -1 do
begin
if owner_.Controls[i] is TButton then
 if (owner_.ControlS[i] as TButton).tag=15 then
 (owner_.ControlS[i] as TButton).Enabled:=sender<>owner_.ControlS[i]; //тут сплагиатим))
end;
end;

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