Управление компонентами интерфейса

[Nester]

Delphi7.

На форме есть Panel на ней лежат компоненты StatusBar и Button.
При выполнении Panel.Enabled:=false
компоненты уже не реагируют на нажатия но визуально они не меняются на серые
Нужно что бы при отключении панели было визуально видно что все компоненты лежащие на ней стали не активны.

Как такое реализовать малой кровью?

[Nester]

Красивого решения не нашел.
Только так:

procedure SetComponentsEnabled(APanel: TWinControl; AEnabled: Boolean);
var
  I: Integer;
begin
  for I := 0 to APanel.ControlCount - 1 do
  begin
    if APanel.Controls[I].ClassType.InheritsFrom(TWinControl) and not(APanel.Controls[I] is TPanel) then
    begin
      // Включаем/отключаем каждый контрол
      TWinControl(APanel.Controls[I]).Enabled := AEnabled;

      // Рекурсия для вложенных контейнеров (если нужно)
      if TWinControl(APanel.Controls[I]) is TWinControl then
        SetComponentsEnabled(TWinControl(APanel.Controls[I]), AEnabled);
    end;
  end;
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
 SetComponentsEnabled(Panel1, False); // Отключение всех компонентов
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 SetComponentsEnabled(Panel1, True); // Включение всех компонентов
end;