Копирование кода большое кол-во раз, но с изменяющимеся номерами компонентов

[arhiepiskop]

Ситуация такая: имеется 200+ компонентов TPanel, при событии mousedown выполняется код ( в котором Tpanel упоминается 12 раз). В каждой из 200+ процедур обработки соответственно нужно исправлять номера панелей. В цикле сделать (к примеру ( panel[i] ) нельзя. Как быть? Или сидеть и часами править номера панелей?

[baster128]

Очень мутно ты объяснил. Объясни задачу целиком, может подскажем попроще чтонибудь.

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

в обработчике событий используйте параметр Sender это обьект(компонент в основном) который вызвал событие.

[arhiepiskop]

к примеру:
по событию OnMouseDown обьекта Panel1 выполнится следующий код:
begin
panel1.color:=clblue;
panel1.hint:='ololo';
panel1.showhint:=true;
end;


и мне надо таким образом сделать тоже самое с еще 245 TPanel'ами.
Как сделать это так что бы не копировать код 245 раз, а потом сидеть и из менять номера TPanel?

ЗЫ: Делаю зрительный зал, панельки соответственно места.

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

begin
(Sender As TPanel).color:=clblue;
(Sender As TPanel).hint:='ololo';
(Sender As TPanel).showhint:=true;
end;

или вы мой пост не заметили?

[Necro]

TPanel(Findcomponent('Panel'+IntToS tr(i))).color:=#000000;

таким макаром попробуйте

[FaTaL]

В цикле

for i:=0 to Form1.ComponentsCount do
  begin
    //А тут уже делаете
   if (Form1.Component[i] is tPanel) then
    //Меняете то что вас нужно
  end;

Примерно как то так. Немного только синтаксис не помню.

[arhiepiskop]

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

begin
(Sender As TPanel).color:=clblue;
(Sender As TPanel).hint:='ololo';
(Sender As TPanel).showhint:=true;
end;

или вы мой пост не заметили?

заметил, но не сразу понял как применить, т.к. опыт программирования очень маленький...

Всем спасибо!