Howe can i disable a tabsheet ?

[uligerhardt]

Also. ich hab den Quelltext aus dem Posting 1:1 als Unit abgespeichert und in ein frisch erzeugtes VCL-Projekt eingebunden, dazu folgenden OnCreate-Handler:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  sh: TTabSheet;
begin
  PC := TPBPageControl.Create(Self);
  PC.Align := alClient;
  PC.Parent := Self;

  for i := 1 to 3 do
  begin
    sh := TTabSheet.Create(Self);
    sh.Caption := StringOfChar(Chr(Ord('A') + Pred(i)), 10);
    sh.Enabled := Odd(i);
    sh.PageControl := PC;
  end;
end;

Nach Programmstart sehe ich drei Tabsheets: Eines mit fetter, eines mit grauer und eines mit normaler Überschrift. Das mittlere kann ich nicht aktivieren. Das passt soweit. Wo hakt's denn bei dir?