Howe can i disable a tabsheet ?

[khh]

Hallo zusammen,
ich möchte obiges Thema nochmal aufgreifen.
Ich habe diese Komponente;
hier

in meiner Etnwicklungsumgebung eingebunden und in einem Test verwendet.
Leider funktioniert das Disablen des Tabs dennoch nicht.

Ich kann im Quelltext auch nicht erkennen wo das umgesetzt ist?

Bin ich blind? :-(

kann von euch jemand da mal kurz drüber schauen?
Oder mache ich was falsch.

Danke Gruss KH

[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?

[Matze]

Ein Thema reicht!
Hier geht's weiter.

G E S C H L O S S E N