Массив из панелей

[iarugp]

Здравствуйте уважаемые программисты. Всех с наступившим Новым годом ! Вопрос такой. Есть, к примеру, 5 компонентов Panel расположенных на форме (Form), со свойствами Align := alTop. На событие Panel.OnClick панель должна окраситься в синий цвет, остальные в цвет по умолчанию, и так с любой панелью. Я так понимаю тут не обойтись без массива панелей, но как это реализовать ума не приложу. Спасибо заранее!

procedure TForm1.Panel1Click(Sender: TObject);
begin
 (Sender as TPanel).Color := clBlue;
end;

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

[Stilet]

Массив фтопку.
Опиши переменку p:TPanel;
И

procedure TForm1.Panel1Click(Sender: TObject);
begin
 if p<>nil then p.Color:=clWindow
 (Sender as TPanel).Color := clBlue;
 p:=(Sender as TPanel);
end;

И все. Переменка будет запоминать предидущую кликнутую панель и менять ей цвет на стандартный.

P.S. Не забудь p:=nil при создании формы.

[iarugp]

да, работает. Спасибо большое. Я уж тут перебпробывал различные варианты. Вот, например

const
  PanelCount = 3;
var
  Panels: array[1..PanelCount] of TPanel;
procedure TForm1.pnl1Click(Sender: TObject);
var i: Integer;
begin
for i:=1 to PanelCount do
 begin
  Panels[i].Color:=clBtnFace;
 end;
(Sender as TPanel).Color := clBlue;

end;

procedure TForm1.FormCreate(Sender: TObject);
var i, j: Integer;
begin
 j := 1;
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TPanel then
     begin
      Panels[j] := TPanel(Components[i]);
      inc(j);
     end;
end;
procedure TForm1.pnl2Click(Sender: TObject);
begin
 pnl1Click(Sender);
end;

procedure TForm1.pnl3Click(Sender: TObject);
begin
 pnl1Click(Sender);
end;

end.

Тоже, в принципе, работает

[iarugp]

Сообщение от Stilet

Массив фтопку.
Опиши переменку p:TPanel;
И

procedure TForm1.Panel1Click(Sender: TObject);
begin
 if p<>nil then p.Color:=clWindow
 (Sender as TPanel).Color := clBlue;
 p:=(Sender as TPanel);
end;

И все. Переменка будет запоминать предидущую кликнутую панель и менять ей цвет на стандартный.

P.S. Не забудь p:=nil при создании формы.

Забыл поставить точку с запятой после clWindow. Спасибо. Оказалось все намного проще