Как создать TPageControl в run-time

[tonatas]

Как создать TPageControl в run-time?

[DomiNick]

Эм... Как обычно... А что не получается-то?

[r9m]

procedure TForm1.Button1Click(Sender: TObject);
var PG:TPageControl;
    TS:TTabSheet;
begin
  PG := TPageControl.Create(Self);
  InsertControl(PG);
  TS := TTabSheet.Create(PG);
  TS.Caption := 'Bla';
  TS.PageControl := PG;
end;

[Selestis]

Поиск отменили? "динамическое создание компонентов" - тем полно

[r9m]

Пример со страницей и кнопкой на ней в аттаче