RichEdit : создании новой вкладки

@AJIEKC · Регистрация: 30.08.2011

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

Привет всем! Решил сделать программу, это что то типа текстового редактора. И там должны присутствовать вкладки(например как в notepad++). И так, у меня есть RichEdit, есть диалоги сохранения и открытия файлов. В начале программы у меня создается 1 вкладка. И вот в чем проблема, как сделать, так чтоб при создании новой вкладки, в ней создавался чистый RichEdit, при этом чтобы текст в первой вкладке остался неизменным, и чтобы можно было сохранить текст из каждой вкладки. Если, проще то мне нужно сделать так, как сделано c вкладками в notepad++ . Натолкните меня на мысль плиз, а то ни одна идея в голову не приходит.

@Infinity3000 · 02.11.2011, 17:19

когда то пытался делать что то наподобии интернет браузера со вкладками!

вкладки делал так и помещал туда CppWebBrowser, ну а по аналогии RichEdit думаю разберешься

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::CreateATabClick(TObject *Sender) // Файл -> Открыть вкладку
{
newtab = new TTabSheet(this); //создаем вкладку в памяти
newtab->PageControl = PageControl1;  //указываем, где она будет жить
newtab->Name = AnsiString("TabSheet")+IntToStr(PageControl1->PageCount+1); //дадим системное имя
newtab->Caption = "Новая вкладка"; //дадим имя которое будет писатся на вкладке
 
newbrowser[num] = new TCppWebBrowser(PageControl1); //выделяем память и объясняем куда хотим вставить новый компонент
 
 
newbrowser[num]->TOleControl::Parent = newtab; //поясняем, куда конкретно вставить
newbrowser[num]->TOleControl::Name = AnsiString("CppWebBrowser")+IntToStr(PageControl1->PageCount+1); //даем системное имя
newbrowser[num]->TOleControl::Align = alClient; //расширяем на всю область
num++;
}

вот весь код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
TTabSheet* newtab; //выделяем память под вкладку
TCppWebBrowser* newbrowser[50];
int num=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
newtab = new TTabSheet(this); //создаем вкладку в памяти
newtab->PageControl = PageControl1;  //указываем, где она будет жить
newtab->Name = AnsiString("TabSheet")+IntToStr(PageControl1->PageCount+1); //дадим системное имя
newtab->Caption = "www.yandex.ru"; //дадим имя которое будет писатся на вкладке
 
newbrowser[num] = new TCppWebBrowser(PageControl1); //выделяем память и объясняем куда хотим вставить новый компонент
newbrowser[num]->TOleControl::Parent = newtab; //поясняем, куда конкретно вставить
newbrowser[num]->TOleControl::Name = AnsiString("CppWebBrowser")+IntToStr(PageControl1->PageCount+1); //даем системное имя
newbrowser[num]->TOleControl::Align = alClient; //расширяем на всю область
num++;
ComboBox1->Text = "www.yandex.ru";
Home->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
 
{
if(Key==VK_RETURN)
{
newbrowser[PageControl1->ActivePageIndex]->Navigate(StringToOleStr(ComboBox1->Text)); //Загружаем страницы
ComboBox1->Items->Add(ComboBox1->Text);  //Добавляем использованные адреса
newtab->Caption = ComboBox1->Text; //присвоить вкладке имя интернет странички
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::make_tab()
{
newtab = new TTabSheet(this); //создаем вкладку в памяти
newtab->PageControl = PageControl1;  //указываем, где она будет жить
newtab->Name = AnsiString("TabSheet")+IntToStr(PageControl1->PageCount+1); //дадим системное имя
newtab->Caption = "Новая вкладка"; //дадим имя которое будет писатся на вкладке
 
newbrowser[num] = new TCppWebBrowser(PageControl1); //выделяем память и объясняем куда хотим вставить новый компонент
newbrowser[num]->TOleControl::Parent = newtab; //поясняем, куда конкретно вставить
newbrowser[num]->TOleControl::Name = AnsiString("CppWebBrowser")+IntToStr(PageControl1->PageCount+1); //даем системное имя
newbrowser[num]->TOleControl::Align = alClient; //расширяем на всю область
num++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->KeyPreview=true; //включаем режим, когда все нажатия проходят через форму
 
Back->Glyph->LoadFromFile("images/Navigation Left 2.bmp");
Next->Glyph->LoadFromFile("images/Navigation Right 2.bmp");
Refresh->Glyph->LoadFromFile("images/Reflesh.bmp");
Stop->Glyph->LoadFromFile("images/Navigation Stop 2.bmp");
Home->Glyph->LoadFromFile("images/Home.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
if((Key=='T')&&(Shift==TShiftState() << ssCtrl)) //Ловим нажатие Ctrl+t
  make_tab();
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BackClick(TObject *Sender)
{
newbrowser[PageControl1->ActivePageIndex]->GoBack();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NextClick(TObject *Sender)
{
newbrowser[PageControl1->ActivePageIndex]->GoForward();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RefreshClick(TObject *Sender)
{
newbrowser[PageControl1->ActivePageIndex]->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StopClick(TObject *Sender)
{
newbrowser[PageControl1->ActivePageIndex]->Stop();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::HomeClick(TObject *Sender)
{
newbrowser[PageControl1->ActivePageIndex]->GoHome();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormResize(TObject *Sender)
{
Form1->ComboBox1->Width = Form1->Width - 180;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::OpenClick(TObject *Sender)
{
if (OpenDialog1->Execute())          // открытие страницы
{
newbrowser[PageControl1->ActivePageIndex]->Navigate(StringToOleStr(ComboBox1->Text));
ComboBox1->Items->Add(ComboBox1->Text);
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::SaveClick(TObject *Sender)
{
newbrowser[PageControl1->ActivePageIndex]->ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT); //Сохранить страницу
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ExitClick(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::PrintClick(TObject *Sender)
{
newbrowser[PageControl1->ActivePageIndex]->ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT); //печать страницы
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::AboutProgramClick(TObject *Sender)  // About -> О программе
{
Form2->ShowModal();   // Окно в Модальном режиме "О программе"
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::AboutTheAuthorClick(TObject *Sender) //  About -> Об авторе
{
Form3->ShowModal(); // Окно в Модальном режиме "Об авторе"
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::CreateATabClick(TObject *Sender) // Файл -> Открыть вкладку
{
newtab = new TTabSheet(this); //создаем вкладку в памяти
newtab->PageControl = PageControl1;  //указываем, где она будет жить
newtab->Name = AnsiString("TabSheet")+IntToStr(PageControl1->PageCount+1); //дадим системное имя
newtab->Caption = "Новая вкладка"; //дадим имя которое будет писатся на вкладке
 
newbrowser[num] = new TCppWebBrowser(PageControl1); //выделяем память и объясняем куда хотим вставить новый компонент
newbrowser[num]->TOleControl::Parent = newtab; //поясняем, куда конкретно вставить
newbrowser[num]->TOleControl::Name = AnsiString("CppWebBrowser")+IntToStr(PageControl1->PageCount+1); //даем системное имя
newbrowser[num]->TOleControl::Align = alClient; //расширяем на всю область
num++;
}
//---------------------------------------------------------------------------

ну думаю разберешься как нибудь!

@AJIEKC · 02.11.2011, 17:21 **[ТС]**

Спасибо, ща посмотрю.

@AJIEKC · 06.11.2011, 19:19 **[ТС]**

Еще не подскажите, как закрыть активную вкладку?
Никак ни получается

@nick42 · 07.11.2011, 12:44

<как закрыть активную вкладку? > закрыть понимается "удалить"? Вот таким макаром:

C++
1
delete PageControl1->Pages[PageControl1->ActivePageIndex];

@AJIEKC · 07.11.2011, 14:12 **[ТС]**

Да, спасибо то что нужно.
Но думаю так будет лучше:

C++
1
delete PageControl1->ActivePage;

@DrSMERTb · 15.12.2011, 11:12

А можете исходник скинуть? Чтобы на непосредственном примере посмотреть?

@Kasiman · 15.11.2012, 21:44

AJIEKC, мог бы ты скинуть свои исходники, если у тебя все получилось с RichEdit'ом?

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@AJIEKC 0 / 0 / 0 Регистрация: 30.08.2011 Сообщений: 21

	RichEdit : создании новой вкладки 02.11.2011, 16:52. Показов 3137. Ответов 7 Метки нет (Все метки) Привет всем! Решил сделать программу, это что то типа текстового редактора. И там должны присутствовать вкладки(например как в notepad++). И так, у меня есть RichEdit, есть диалоги сохранения и открытия файлов. В начале программы у меня создается 1 вкладка. И вот в чем проблема, как сделать, так чтоб при создании новой вкладки, в ней создавался чистый RichEdit, при этом чтобы текст в первой вкладке остался неизменным, и чтобы можно было сохранить текст из каждой вкладки. Если, проще то мне нужно сделать так, как сделано c вкладками в notepad++ . Натолкните меня на мысль плиз, а то ни одна идея в голову не приходит. 0

@AJIEKC 0 / 0 / 0 Регистрация: 30.08.2011 Сообщений: 21
	02.11.2011, 17:21 [ТС]
	Спасибо, ща посмотрю. 0

@AJIEKC 0 / 0 / 0 Регистрация: 30.08.2011 Сообщений: 21
	06.11.2011, 19:19 [ТС]
	Еще не подскажите, как закрыть активную вкладку? Никак ни получается 0

@DrSMERTb 64 / 40 / 10 Регистрация: 12.11.2010 Сообщений: 841
	15.12.2011, 11:12
	А можете исходник скинуть? Чтобы на непосредственном примере посмотреть? 0

@Kasiman 1 / 1 / 2 Регистрация: 11.11.2012 Сообщений: 93
	15.11.2012, 21:44
	AJIEKC, мог бы ты скинуть свои исходники, если у тебя все получилось с RichEdit'ом? 0

Опции темы

RichEdit : создании новой вкладки

Решение