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?