Einzelnen Beitrag anzeigen

Benutzerbild von uligerhardt
uligerhardt

Registriert seit: 19. Aug 2004
Ort: Hof/Saale
1.746 Beiträge
 
Delphi 2007 Professional
 
#2

Re: Howe can i disable a tabsheet ?

  Alt 22. Apr 2010, 13:58
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?
Uli Gerhardt