Einzelnen Beitrag anzeigen

julchen

Registriert seit: 20. Mär 2008
113 Beiträge
 
Delphi 10.3 Rio
 
#10

Re: Komponenten Eigenschaften zusammenfassen

  Alt 25. Aug 2008, 14:11
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
  Mit Zitat antworten Zitat