Вкладки

[geniy1998]

Спасибо вот это то что нужно а ещё как сделать чтоб внутри вкладки создавался ещё Memo1

как сделать чтоб каждая новая вкладка создавалась с memo

 M:=TMemo.Create(Tab);
 M.Parent:=Tab;
 M.Name:='Memo';
 M.Left:=0;
 M.Top:=0;
 M.Width:=675;
 M.Height:=365;

не помогает

[Stilet]

А ты не хочешь заменить TabbedNotebook1 на PageControl?

[geniy1998]

[Ошибка] : Statement expected but 'VAR' found
[Ошибка] : Undeclared identifier: 'PageControl1'
[Ошибка] : Missing operator or semicolon
вот как это исправлять а?
Это в PageControl все ошибки в строчках:

 var Tab:TTabSheet;
 Tab:=TTabSheet.Create(PageControl1);
 PageControl1.ActivePage:=Tab;

From Stilet: попрошу код форматировать по правилам кнопкой # в редакторе

[Stilet]

var t:TTabSheet;
begin
// Создаем страничку
 t:=TTabSheet.Create(PageControl1);
 with t do begin
// Указываем ее родителя
  Parent:=PageControl1;
//ее заглавие
  Caption:='1';
//и ее контейнер
  PageControl:=PageControl1;
//на ней создаем МЕМО
  with TMemo.Create(t) do begin
    Align:=alClient;
    Parent:=t;
    show;
  end;
//и переходим на вновь созданную страницу
  PageControl.ActivePage:=t;
 end;
end;

Идея ясна?

[Пепел Феникса]

а ведь по PageControl я дал пример...неужели трудно переделать?

[geniy1998]

Для нуба трудно я тока новичёк)

Пипец его в твоём коде

var t:TTabSheet;

Жалуется [Ошибка]: Statement expected but 'VAR' found

Блин вообще харе дайте нормальный код с PageControl Дофига проблем дайте продолжение кода чтоб создавалс Memo1

 TabbedNotebook2.Pages.Add('Безымянный');
 TabbedNotebook2.ActivePage:='Безымянный';

Делаю твой код

with TMemo.Create(Tab) do begin

Запускается нажимаю на кнопку создать выскакивает ошибка и синим обводиться

with TMemo.Create(Tab) do begin

Блин да что вы прежде чем давать код

var t:TTabSheet;
begin
// Создаем страничку
 t:=TTabSheet.Create(PageControl1);
 with t do begin
// Указываем ее родителя
  Parent:=PageControl1;
//ее заглавие
  Caption:='1';
//и ее контейнер
  PageControl:=PageControl1;
//на ней создаем МЕМО
  with TMemo.Create(t) do begin
    Align:=alClient;
    Parent:=t;
    show;
  end;
//и переходим на вновь созданную страницу
  PageControl.ActivePage:=t;
 end;
end;

Сами его попробуйте не действует а таже ошибка

[geniy1998]

А как вам это?)

var Tab:TTabbedNotebook;
   Memo: TMemo;
begin
 TabbedNotebook2.Pages.Add('Безымянный');
 TabbedNotebook2.ActivePage:='Безымянный';
   Memo := TMemo.Create(TabbedNotebook2);
  Memo.Parent := TabbedNotebook2;
  Memo.Left := 0;
  Memo.Top := 20;
  Memo.Width:=649;
  Memo.Height:=401;

[Пепел Феникса]

я же дал рабочий код...мдя...

[geniy1998]

Да ладно тебе я нуб там другие компоненты мне нужно чтобы Memo при переключении вкладки не исчезал как делать?

и на твой код вылазило куча ошибок и ещё Memo неправильно построен ошибка что он не узнаёт компонент код был страшно запутан(Для меня)

[Пепел Феникса]

и на твой код вылазило куча ошибок

мой код полностью рабочий.
exe скинуть свежескомпиленный?

используйте PageControl, он в этом плане лучше, забудьте про TabbedNoteBook.