Panelreheinfolge einhalten.

[mm1256]

Ich würde bei der Gelegenheit noch den Code etwas übersichtlicher machen, und anstelle der Color das Property "Tag" nehmen. Wobei das "Tag" auch keine perfekte Lösung ist

Delphi-Quellcode:

procedure TFrameArtikel.Panellinksreihenfolge;

  procedure AdjustPanel(aPanel: TPanel; aButton: TButton);
  const
    PanelHeight: array[boolean] of Integer = (0, 100);
  begin
    aPanel.Height := PanelHeight[aButton.Tag = 0];
    aPanel.Enabled := aButton.Tag = 0;
    aPanel.TabStop := aButton.Tag = 0;
  end;

begin
  AdjustPanel(PanelArtikel, ButtonHaftEtikett);
  AdjustPanel(PanelDienstleistung, ButtonDienstleistung);
  . . . usw.