Dynam. tworzenie TabSheet

0

Witam.

Tworzę sobie dynamicznie PageControl :

var Strony : TPageControl;
.
.
procedure TGlowna.FormCreate(Sender: TObject);
begin
  Strony := TPageControl.Create( Self );
  Strony.Parent := Self;
  Strony.Name := 'Lata';
  Strony.Left := 8;
  Strony.Top := 56;
  Strony.Height := 233;
  Strony.Width := 641;
  Strony.Anchors := [akLeft,akTop,akRight,akBottom];
end;

I teraz chce na nich utworzyć jedną "Stronę"
więc dalej daje :

var Tab : TTabSheet;

  Tab := TTabSheet.Create( Strony );
  Tab.Parent := Strony;
  Tab.Name := 'Rok1';
  Tab.Caption := '2004';

No i niestety Tab nietworzy :(.

Może mi ktoś pomóc??

THX

0

Możesz to zrobić na dwa sposoby:

Pierwszy (dluższy)
1.)Na forme wrzuć TPageControl w OnCreate Formy wżuć procedury i nacisnj F9(Run).
2. Zamknij aplikacje i usuń umiesczony komponent.

Drugi (szybszy i łatwiejszy
w sekcji uses dopisz ComCtrls i po kłopocie.!!

0
  with Strony do
    with TTabSheet.Create(Self)  do
    begin
      PageControl := Strony;
      Name := 'Rok1';
      Caption := '2004';
    end;
0

Dzięi Detox. Oto właśnie chodziło :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1