Komponenten Eigenschaften zusammenfassen

[Hawkeye219]

Hallo julchen,

kannst du mit Mengen in Delphi umgehen?

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;

Gruß Hawkeye