[PashaXP]

Подскажите, пожалуйста, как добавить новые корешки в tabControl, типа как в PageControl -
Var: T: TabSheet;
...
T:=TtabSeet.Create(Self);
T.Capticon:='jdjskdksds';
T.PageControl:=PAgeControl1;

[AlexSku]

Код:

var i: Integer = 0;
procedure TForm1.Button1Click(Sender: TObject);
begin
  TabControl1.Tabs.Add(Format('new %u', [i]));
  Inc(i);
end;

[PashaXP]

Спаибо большое AlexSku! Так сильно выручаешь!!!