Вкладки

@geniy1998 · Регистрация: 18.03.2012

Студворк — интернет-сервис помощи студентам

Всем привет у меня очень большая проблема как сделать чтоб при нажатии на кнопку в TabbedNotebook Появлялась новая вкладка вот код который помогает :
with TabbedNotebook2 do
Pages.Add(ComboBox1.Text);
Этот код выдаёт пустую без названия вкладку
мне нужно чтоб в новой вкладке был Memo и вкладки назывались Безымянный
Безымянный2
Безымянный3 и т.д.

Добавлено через 3 часа 46 минут
Что никто не знает?

@БогДелфей · 18.03.2012, 15:56

ну давай им имена TabbedNotebook2.Pages.Кэпшн = безымяный

@geniy1998 · 18.03.2012, 18:39 **[ТС]**

а memo чтобы был а?

Добавлено через 55 минут
да я такого не ожидал форум стоит на 2 месте в яндексе и ни кто не может ответить за целый день ппц я сюда больше не прийду

@geniy1998 · 19.03.2012, 23:30 **[ТС]**

а memo чтобы был а?

@БогДелфей · 20.03.2012, 00:11

Delphi
1
2
3
4
5
6
7
var
  Memo: TMemo;
begin
  Memo := TMemo.Create(TabbedNotebook2);
  Memo.Parent := TabbedNotebook2;
  Memo.Left := 20;
  Memo.Top := 35;

@geniy1998 · 20.03.2012, 12:13 **[ТС]**

БогДелфей Спасибо большое спас от других форумах не дождёшься пишут дребедень неправильную а тут вот раз два и готово спс

Добавлено через 1 минуту
Вот что выйдет если добавить размер

Delphi
1
2
3
4
5
6
   Memo := TMemo.Create(TabbedNotebook2);
  Memo.Parent := TabbedNotebook2;
  Memo.Left := 20;
  Memo.Top := 35;
  Memo.Width:=675;
  Memo.Height:=365;

Добавлено через 6 минут
Ещё 1 вопрос как сделать вот ты поэкспериментируй этот код

Delphi
1
2
3
4
5
6
7
8
 TabbedNotebook2.Pages.Add('Безымянный');
 TabbedNotebook2.ActivePage:='Безымянный';
   Memo := TMemo.Create(TabbedNotebook2);
  Memo.Parent := TabbedNotebook2;
  Memo.Left := 0;
  Memo.Top := 20;
  Memo.Width:=649;
  Memo.Height:=401;

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

@БогДелфей · 20.03.2012, 13:11

Delphi
1
2
3
4
5
6
7
8
TabbedNotebook2.Pages.Add('Безымянный');
 TabbedNotebook2.ActivePage:='Безымянный';
   Memo := TMemo.Create(TabbedNotebook2);
  Memo.Parent := TTabPage(TabbedNotebook2.Pages.Objects[TabbedNotebook2.Pages.Count - 1]);
  Memo.Left := 0;
  Memo.Top := 20;
  Memo.Width:=649;
  Memo.Height:=401;

@geniy1998 · 20.03.2012, 13:27 **[ТС]**

Вот то помощь ещё 1 маленький вопрос и всё можно закрыть тему как сделать чтоб созданные вкладки имели название безымянный потом следующая безымянный1,2,3,4 и т.д.
и ещё желательно при сохранении файла когда ты ввёл название это название после сохранения заменяла название вкладки например: Сохранил под названием "Лан" и безымянный переименовался тоже в "Лан" и ещё когда открываешь файл создавалась новая вкладка и его название например: Открыл файл "Мир" и вкладка тоже имела название "Мир"

@БогДелфей · 20.03.2012, 13:40

Delphi
1
2
3
4
5
6
7
8
TabbedNotebook2.Pages.Add('Безымянный' + IntToStr(TabbedNotebook1.Pages.Count));
 TabbedNotebook2.ActivePage:='Безымянный';
   Memo := TMemo.Create(TabbedNotebook2);
  Memo.Parent := TTabPage(TabbedNotebook2.Pages.Objects[TabbedNotebook2.Pages.Count - 1]);
  Memo.Left := 0;
  Memo.Top := 20;
  Memo.Width:=649;
  Memo.Height:=401;

а по второму вопросу бери имя файла из savedialog и меняй имя вкладки, аналогично и при открытии, имя открытого файла в имя новой вкладки

@geniy1998 · 20.03.2012, 13:52 **[ТС]**

Спасибо но вроде в коде алгоритм не правильный он мне создаёт только Безымянный 3 и всё и не делает безымянный 4 все вкладки имеют такое же имя безымянный 3 . а 2 вопрос щас попытаюсь сделать и пришлю код

@БогДелфей · 20.03.2012, 13:56

TabbedNotebook2.Pages.Add('Безымянный' + IntToStr(TabbedNotebook1.Pages.Count));

@geniy1998 · 20.03.2012, 14:24 **[ТС]**

ааааааа спс))) понял
а что у меня не совпадает с кодом сохранения не сохраняет ошибку выдаёт:
if savedialog1.Execute then begin // Запустить окно сохранения файла
memo1.Lines.SaveToFile(savedialog1.FileN ame+'.cpp'); // Сохранить предыдущий текст с
//именем которое ввели в окне сохранения файла

Добавлено через 4 минуты
Чем Memo1 заменить?

Добавлено через 11 минут
У меня же Memo без названия

Добавлено через 51 секунду
а также нужно и с загрузкой провести

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

@БогДелфей · 20.03.2012, 17:18

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
var
  Memo: TMemo;
  SaveDialog: TSaveDialog;
begin
  TabbedNotebook2.Pages.Add('Безымянный' + IntToStr(TabbedNotebook2.Pages.Count));
  TabbedNotebook2.ActivePage:='Безымянный';
  Memo := TMemo.Create(TabbedNotebook2);
  Memo.Parent := TTabPage(TabbedNotebook2.Pages.Objects[TabbedNotebook2.Pages.Count - 1]);
  Memo.Name := 'Memo' + IntToStr(TabbedNotebook2.Pages.Count - 1);
  Memo.Left := 0;
  Memo.Top := 20;
  Memo.Width:=649;
  Memo.Height:=401;
  SaveDialog := TSaveDialog.Create(Self);
  SaveDialog.FileName := TabbedNotebook2.Pages.Strings[TabbedNotebook2.Pages.Count - 1];
  SaveDialog.Execute;
end;

@geniy1998 · 20.03.2012, 17:46 **[ТС]**

Спасибо конечно а через обычный SaveDialog1 Можно?
А то там я много сделал фильтров долго переписовать

Новые блоги и статьи Все статьи Все блоги /
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@geniy1998 8 / 8 / 2 Регистрация: 18.03.2012 Сообщений: 138 Записей в блоге: 1

	Вкладки 18.03.2012, 15:49. Показов 1952. Ответов 13 Метки нет (Все метки) Всем привет у меня очень большая проблема как сделать чтоб при нажатии на кнопку в TabbedNotebook Появлялась новая вкладка вот код который помогает : with TabbedNotebook2 do Pages.Add(ComboBox1.Text); Этот код выдаёт пустую без названия вкладку мне нужно чтоб в новой вкладке был Memo и вкладки назывались Безымянный Безымянный2 Безымянный3 и т.д. Добавлено через 3 часа 46 минут Что никто не знает? 0

@БогДелфей 474 / 337 / 36 Регистрация: 31.05.2011 Сообщений: 1,164
	18.03.2012, 15:56
	ну давай им имена TabbedNotebook2.Pages.Кэпшн = безымяный 1

@geniy1998 8 / 8 / 2 Регистрация: 18.03.2012 Сообщений: 138 Записей в блоге: 1
	18.03.2012, 18:39 [ТС]
	а memo чтобы был а? Добавлено через 55 минут да я такого не ожидал форум стоит на 2 месте в яндексе и ни кто не может ответить за целый день ппц я сюда больше не прийду 0

@geniy1998 8 / 8 / 2 Регистрация: 18.03.2012 Сообщений: 138 Записей в блоге: 1
	19.03.2012, 23:30 [ТС]
	а memo чтобы был а? 0

@geniy1998 8 / 8 / 2 Регистрация: 18.03.2012 Сообщений: 138 Записей в блоге: 1
	20.03.2012, 13:27 [ТС]
	Вот то помощь ещё 1 маленький вопрос и всё можно закрыть тему как сделать чтоб созданные вкладки имели название безымянный потом следующая безымянный1,2,3,4 и т.д. и ещё желательно при сохранении файла когда ты ввёл название это название после сохранения заменяла название вкладки например: Сохранил под названием "Лан" и безымянный переименовался тоже в "Лан" и ещё когда открываешь файл создавалась новая вкладка и его название например: Открыл файл "Мир" и вкладка тоже имела название "Мир" 0

@geniy1998 8 / 8 / 2 Регистрация: 18.03.2012 Сообщений: 138 Записей в блоге: 1
	20.03.2012, 13:52 [ТС]
	Спасибо но вроде в коде алгоритм не правильный он мне создаёт только Безымянный 3 и всё и не делает безымянный 4 все вкладки имеют такое же имя безымянный 3 . а 2 вопрос щас попытаюсь сделать и пришлю код 0

@БогДелфей 474 / 337 / 36 Регистрация: 31.05.2011 Сообщений: 1,164
	20.03.2012, 13:56
	TabbedNotebook2.Pages.Add('Безымянный' + IntToStr(TabbedNotebook1.Pages.Count)); 1

@geniy1998 8 / 8 / 2 Регистрация: 18.03.2012 Сообщений: 138 Записей в блоге: 1
	20.03.2012, 14:24 [ТС]
	ааааааа спс))) понял а что у меня не совпадает с кодом сохранения не сохраняет ошибку выдаёт: if savedialog1.Execute then begin // Запустить окно сохранения файла memo1.Lines.SaveToFile(savedialog1.FileN ame+'.cpp'); // Сохранить предыдущий текст с //именем которое ввели в окне сохранения файла Добавлено через 4 минуты Чем Memo1 заменить? Добавлено через 11 минут У меня же Memo без названия Добавлено через 51 секунду а также нужно и с загрузкой провести Добавлено через 49 секунд Потому что загружать ему куда в какую форму? Memo без названия 0

@geniy1998 8 / 8 / 2 Регистрация: 18.03.2012 Сообщений: 138 Записей в блоге: 1
	20.03.2012, 17:46 [ТС]
	Спасибо конечно а через обычный SaveDialog1 Можно? А то там я много сделал фильтров долго переписовать 0

Вкладки

Решение