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