[Norw]

вот процедура:

Код:

procedure nazg(Sender: TObject);
 var
  APanel : TPanel;
begin
   if GetAsyncKeyState(VK_SHIFT) = -32767 then
  If Sender Is TPanel Then
    Begin
      APanel := Sender As TPanel;

   if APanel.Color=clBtnFace  then APanel.Color := clYellow else APanel.Color :=clBtnFace;
   if APanel.Bevelouter =bvRaised then APanel.Bevelouter:=bvLowered else APanel.Bevelouter:=bvRaised;

    End;
end;

вот обработчик клика по кнопке:

Код:

procedure TForm3.Panel1Click(Sender: TObject);
begin
 nazg(Panel1);
 nazg(Panel93);
 nazg(Panel95);
 nazg(Panel99);
 nazg(Panel98);
 nazg(Panel92);
 nazg(Panel77);

 end;

по идее нажатие кнопки должно включать еще ряд других.... кнопки на основе компонента TPanel.