Komponenten Eigenschaften zusammenfassen

[julchen]

Zitat von Hawkeye219:

Delphi-Quellcode:

type
  TByteSet = set of Byte;

type
  TForm1 = class(TForm)
    [..]
  private
    procedure SetVisibleTabs (const aVisible : TByteSet);
  end;

procedure TForm1.SetVisibleTabs (const aVisible : TByteSet);
begin
  TabSheet1.TabVisible := 1 in aVisible;
  TabSheet2.TabVisible := 2 in aVisible;
  TabSheet3.TabVisible := 3 in aVisible;
  TabSheet4.TabVisible := 4 in aVisible;
  // hier erweitern, falls es mehr Tabs gibt
end;

procedure TForm1.Button1Click (Sender: TObject);
begin
  SetVisibleTabs ([2, 3]); // nur Tabs 2 und 3 sind sichtbar
end;

VIELEN DANK
Das ist genau das, was ich gebraucht habe!
Ich wusste nicht, dass die Menge das Zauberwort für solche Probleme ist!
Mit vielen Grüssen, Julchen