Событие для массива компонентов

[sqr]

Есть массив из девяти Tlabel
Нужно чтоб при клике на один из лейблов записывался в переменную его номер. Только нужно чтоб событие было одно для всего массива. Не понимаю как реализовать. Сейчас у меня в программе тысячи строк кода, потому что расписано все в каждом лейбле по событию онКлик, изменено лишь несколько цифр. Хочу чтоб все было в одной процедуре.

[Пепел Феникса]

один метод обработчик, а в нем применяйте Sender.
уже тысячу раз было.

[sqr]

Сообщение от Пепел Феникса

один метод обработчик, а в нем применяйте Sender.
уже тысячу раз было.

можно подробней, а то мне это ниочем не говорит

[3D Hunter]

1. проставьте вашим лэйблам номера в свойстве Tag.
2. напишите такой обработчик OnClick и присвойте его всем лэйблам через инспектор объектов:

procedure TForm1.Label1Click(Sender: TObject);
begin
  arr[TLabel(Sender).Tag]:=TLabel(Sender).Tag;
end;

где arr - ваш массив из девяти лэйблов.
В вашем случае важно, чтобы нумерация в тагах и число лэйблов были синхронны - размерность массива должна соответствовать числу компонентов. Предполагается, что ваш массив статический.

[sqr]

В tag все записал.
Вот:

procedure TForm1.Label1Click(Sender: TObject);
begin
L[TLabel(Sender).Tag]:=TLabel(Sender).Tag;
end;

Ошибка:
[Error] Unit1.pas(190): Incompatible types: 'TLabel' and 'Integer'

Лейблы на форме уже есть а массив из них создал так:

L[1]:=label1;
L[2]:=label2;
L[3]:=label3;
L[4]:=label4;
L[5]:=label5;
L[6]:=label6;
L[7]:=label7;
L[8]:=label8;
L[9]:=label9;

[3D Hunter]

Вы делфи знаете вообще? В упор ошибки присвоения типов не видите?
Если просто таги:

L[TLabel(Sender).Tag].Tag:=TLabel(Sender).Tag;

А может быть вам нужно присвоить сам лэйбл?

L[TLabel(Sender).Tag]:=TLabel(Sender);

[sqr]

Сообщение от 3D Hunter

Вы делфи знаете вообще?

Ну я сам учу делфи.
Вот сделал так
L[TLabel(Sender).Tag].Tag:=TLabel(Sender).Tag;
заработало. Но теперь объясните что делает эта строчка? (извините за глупые вопросы)
Я правильно понял, при клике на любой лейбл из массива L, будет обрабатываться процедура Label1Click? а как записать номер лейбла на который кликнули в переменную?

[3D Hunter]

Sender - это "неопределенный" объект. но т.к. мы работаем ТОЛЬКО с лэйблами, то нужно привести его к типу TLabel, именно так TLabel(Sender). Теперь получили переменную типа той же Label1 или как вы обращаетесь к компоненту в коде. Теперь и можно вызывать все свойства этого компонента. Чтобы записать номер лэйбла, сначала их нужно пронумеровать, что мы и сделали со свойством Tag.

[sqr]

procedure TForm1.Label1Click(Sender: TObject);
var n:integer;
begin
n:=TLabel(Sender).Tag;
label13.Caption:=inttostr(n);
end;

вот вроде то что нужно было. Теперь в переменную n записывается номер выбраного лейбла, а точнее Tag выбранного лейбла. Или это не так делается?

[3D Hunter]

n:=TLabel(Sender).Tag;
TLabel(Sender).Caption:=inttostr(n);

Если выводить номер в статичный лэйбл, то напрямую, как у вас.