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