При нажатии button добавлять ListBox в tabSheet

@felicita_091 · Регистрация: 24.10.2012

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

Как делать так, чтоб при нажатии button добавлялась tabSheet и ListBox???

@felicita_091 · 19.03.2013, 11:30 **[ТС]**

_Dimon_, то есть, tabsheet связана с listbox, и мне нужно сохранить вкладку и listbox

@felicita_091 · 22.03.2013, 11:41 **[ТС]**

Вот проект

@_Dimon_ · 22.03.2013, 12:06

Вот 3 функции:

Создать новую вкладку

C++
1
2
3
4
5
6
7
8
9
10
11
12
//---------------------------------------------------------------------------
void __fastcall TForm1::NewTab(AnsiString tabName)
{
 TsTabSheet* sTab = new TsTabSheet(Form1->sPageControl1);
 sTab->Parent=Form1->sPageControl1;
 sTab->PageControl = Form1->sPageControl1;
 sTab->Caption=tabName;
 
 TListBox *listbox = new TListBox(sTab);
 listbox->Parent = sTab;
 listbox->Align = alClient;
}

Сохранить все вкладки

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//---------------------------------------------------------------------------
void __fastcall TForm1::SaveTabs()
{
 TIniFile *pIniFile;
 try
  {
   pIniFile = new TIniFile(ExtractFilePath(Application->ExeName)+"tabs.ini");
 
  for (int i=0; i<sPageControl1->PageCount; i++)
   {
    pIniFile->WriteString("TABS","Tab"+IntToStr(i+1),sPageControl1->Pages[i]->Caption);
   }
  }
 __finally
  {
   delete pIniFile;
  }
}

Открыть сохраненные вкладки

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//---------------------------------------------------------------------------
void __fastcall TForm1::OpenTabs()
{
 TIniFile *pIniFile;
 TStringList *strTabs;
 try
  {
   pIniFile = new TIniFile(ExtractFilePath(Application->ExeName)+"tabs.ini");
   strTabs = new TStringList;
 
   pIniFile->ReadSection("TABS",strTabs);
 
   for (int i=0; i<strTabs->Count; i++)
    NewTab(pIniFile->ReadString("TABS",strTabs->Strings[i],""));
  }
 __finally
  {
   delete pIniFile;
   delete strTabs;
  }
}
//---------------------------------------------------------------------------

Теперь, например, создаешь новую вкладку

C++
1
2
3
4
5
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 NewTab(sEdit1->Text); //создаем
 SaveTabs(); //сохраняем
}

Добавлено через 1 минуту
И не забыть

C++
1
#include <Inifiles.hpp>

Но это на одной форме, я не понял как тебе нужно с двумя формами, обьясни пожалуйста

Добавлено через 4 минуты
Глянул пример, чуть не так, сейчас попробую переделать.

@_Dimon_ · 22.03.2013, 12:35

felicita_091, замени у себя этими файлами, попробуй, а там посмотрим.

@_Dimon_ · 22.03.2013, 12:40

Для Form2 назначь событие OnShow. Оно уже есть , просто выбери из списка

Добавлено через 1 минуту
Я не понял, что и когда должно подгружатся в листбокс, поясни

@felicita_091 · 22.03.2013, 12:47 **[ТС]**

_Dimon_, все хорошо, но только повторяется.) Например, в листбокс список название книг, когда нажимаю список на листбокс, и в мемо выводилось тхт

@_Dimon_ · 22.03.2013, 12:53

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
void __fastcall TForm1::SaveTabs()
{
 TIniFile *pIniFile;
 try
  {
   pIniFile = new TIniFile(ExtractFilePath(Application->ExeName)+"tabs.ini");
 
  pIniFile->EraseSection("TABS"); // добавь эту строчку
 
  for (int i=0; i<Form1->PageControl1->PageCount; i++)
   {
    pIniFile->WriteString("TABS","Tab"+IntToStr(i+1),Form1->PageControl1->Pages[i]->Caption);
   }
  }
 __finally
  {
   delete pIniFile;
  }
}

Добавлено через 1 минуту
и подотри ini файл

Добавлено через 4 минуты
А, повторяется из-за того, что три вкладки сделаны в design-time, а остальные динамически, а в файл сохраняются все

@felicita_091 · 22.03.2013, 12:59 **[ТС]**

_Dimon_, удаление вкладку

C++
1
2
Form1->Visible==1 ;
Form1->PageControl1->ActivePage->Free();

@_Dimon_ · 22.03.2013, 13:10

Free() не желательно использовать

C++
1
2
delete Form1->PageControl1->ActivePage;
SaveTabs();

@felicita_091 · 22.03.2013, 13:21 **[ТС]**

_Dimon_, А, повторяется из-за того, что три вкладки сделаны в design-time, а остальные динамически, а в файл сохраняются все
убрать лишние повторяющихся можно?

@_Dimon_ · 22.03.2013, 13:34

Не очень красиво, но работает. Не будет загружать вкладку, если вкладка с таким именем уже существует

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::NewTab(AnsiString tabName)
{
 for (int i=0; i<PageControl1->PageCount;i++)
  if (PageControl1->Pages[i]->Caption == tabName) return ;
 
 TTabSheet* sTab = new TTabSheet(Form1->PageControl1);
 sTab->Parent=Form1->PageControl1;
 sTab->PageControl = Form1->PageControl1;
 sTab->Caption=tabName;
 
 TListBox *listbox = new TListBox(sTab);
 listbox->Parent = sTab;
 listbox->Align = alClient;
}

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@felicita_091 8 / 8 / 2 Регистрация: 24.10.2012 Сообщений: 430

	При нажатии button добавлять ListBox в tabSheet 17.03.2013, 23:08. Показов 3987. Ответов 30 Метки нет (Все метки) Как делать так, чтоб при нажатии button добавлялась tabSheet и ListBox??? 0

@felicita_091 8 / 8 / 2 Регистрация: 24.10.2012 Сообщений: 430
	19.03.2013, 11:30 [ТС]
	_Dimon_, то есть, tabsheet связана с listbox, и мне нужно сохранить вкладку и listbox 0

@_Dimon_ 1409 / 573 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	22.03.2013, 12:40
	Для Form2 назначь событие OnShow. Оно уже есть , просто выбери из списка Добавлено через 1 минуту Я не понял, что и когда должно подгружатся в листбокс, поясни 1

@felicita_091 8 / 8 / 2 Регистрация: 24.10.2012 Сообщений: 430
	22.03.2013, 12:47 [ТС]
	_Dimon_, все хорошо, но только повторяется.) Например, в листбокс список название книг, когда нажимаю список на листбокс, и в мемо выводилось тхт Миниатюры 0

@felicita_091 8 / 8 / 2 Регистрация: 24.10.2012 Сообщений: 430
	22.03.2013, 13:21 [ТС]
	_Dimon_, А, повторяется из-за того, что три вкладки сделаны в design-time, а остальные динамически, а в файл сохраняются все убрать лишние повторяющихся можно? 0