Создание компонента RichEdit программным путём

@Vetaliycpp · Регистрация: 02.11.2020

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

Пишу тектовий редактор и нужно чтоб при нажатии на кнопку создавало новую страницу (компонент RichEdit) как мне это сделать?

@nick42 · 08.11.2020, 23:33

Предлагаю использовать компонент PageControl (вкладка Win32). Пример кода на кнопку ниже (ещё ниже - результат).

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     TTabSheet *str1 = new TTabSheet(this);
     str1->PageControl = PageControl1;
     str1->Caption = "Страница 1";
     TRichEdit *edt1 = new TRichEdit(this);
     edt1->Parent = str1;
     edt1->Align = alClient;
}

@nick42 · 08.11.2020, 23:38

Что-то не то с местным редактором... . Попробую gif.

@Vetaliycpp · 09.11.2020, 00:01 **[ТС]**

Впринцие я решил как уже но все ещо есть вопроси я сделал кнопку создания страниц и глобальную переменную number(количество страниц) в кнопке прописал следующий код

C++
1
2
3
4
5
6
7
8
9
10
11
12
TRichEdit* T=new TRichEdit(Form1);
T->Parent=Form1;
T->Left=20;
T->Top= number*45+a*(number-1)*TrackBar1->Position;
T->Name="RichEdit" + IntToStr(number);
T->Height=a*TrackBar1->Position;;
T->Width=b*TrackBar1->Position;;
T->Font->Size=StrToInt(ComboBox1->Text)*TrackBar1->Position;;
T->Paragraph->FirstIndent = (StrToInt(ComboBox3->Text)+StrToInt(ComboBox5->Text))*TrackBar1->Position;
T->Paragraph->LeftIndent = (StrToInt(ComboBox5->Text)-StrToInt(ComboBox3->Text))*TrackBar1->Position;
T->Paragraph->RightIndent = StrToInt(ComboBox4->Text)*TrackBar1->Position;
number++;

TrackBar1->Position; для увеличения как в ворде. Все впринципе работает но когда я хочу например вставить текст через кнопку в рич едит в котором курсор миши, всталяет во все RichEdit потому что вставка у меня так прописана:

C++
1
2
3
4
5
void __fastcall TForm1::N14Click(TObject *Sender)
{
for(int i=1;i<number;i++)
  static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(i)))->PasteFromClipboard();
}

а можно типа вставить условие если курсор сейчас в даном RichEdit типа что то такого но не работает

C++
1
2
3
4
5
6
 void __fastcall TForm1::N14Click(TObject *Sender)
{
for(int i=1;i<number;i++)
       if(static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(i)))->Cursor==true)
  static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(i)))->PasteFromClipboard();
}

как его правильно прописать?

@nick42 · 09.11.2020, 00:33

используйте условие RichEdit[]->Focused()

@Vetaliycpp · 09.11.2020, 00:49 **[ТС]**

nick42, Да работает. Теперь я сделал анализ строки типо после точки и тп пробел если 2 то удаляет тоисть испавляет синтаксические ошибки вот код

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
String s=static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(1)))->Text;
char topalphavit[]= {"АБВГДЕЄЖЗИІЙКЛМНОПРСТУФХЦЧШЩЬЮЯ"};  //31
char loweralphavit[]={"абвгдеєжзиійклмнопрстуфхцчшщьюя"};
    int size=s.Length();
    int j;
    s[1]=toupper(s[1]);
for (int i = 1; i < size; i++)
 
if(s[i]=='!'||s[i]=='?'||s[i]==','||s[i]=='.') {
if(s[i+1]!=' '){s.Insert(' ',i);size++;}
else if(s[i+1]==' ')
for(j=i+2;s[j]==' ';j++){
       s.Delete(j, 1);j--;size--;
}
if(s[i]!=',') {
if(isalnum(s[j]))
s[j]=toupper(s[j]);
else for(int k=0;k<34;k++)
if(s[j]==loweralphavit[k]){s[j]= topalphavit[k];break;}
   }
if(s[i-3]==' ')
for(j=i-3;s[j]==' ';j--){
   s.Delete(j, 1);j++;size--;
}
}
for (int i = 1; i < size; i++){
if(s[i]=='!'||s[i]=='?'||s[i]==','||s[i]=='.') {
if(s[i+1]!=' '){s.Insert(' ',i);size++; }   }}
 static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(1)))->Text=s;
}

все исправляет но когда после точки нет пробела и ево надо вставить вибивает ошибку пробел вставляет етод код

C++
1
2
if(s[i]=='!'||s[i]=='?'||s[i]==','||s[i]=='.') {
if(s[i+1]!=' '){s.Insert(' ',i);size++; }   }}

что не так с вставкой символа в строку?

@D1973 · 09.11.2020, 04:40

Как Вы лихо меняете значение верхней границы цикла for внутри тела цикла... Вот Вам и ошибка... Вот так сделайте:

C++
1
2
3
for (int i = size; i >= 1; i--)
  if((s[i] == '!') || (s[i] == '?') || (s[i] == ',') || (s[i] == '.'))
    if(s[i+1] != ' ') s.Insert(' ', i);

@nick42 · 09.11.2020, 16:53

Вы напрасно пренебрегаете форматированием текста; трудно отслеживать порядок операций. На мой взгляд в таком варианте__

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
  String G = RichEdit1->Text, obr3 = { "!?." }, obr4 = { "!?,." };
     G[1] = G.UpperCase()[1];
     int i=0;
     while(++i < G.Length())
    {
       if(obr4.Pos(G[i])>0 && G[i+1] !=' ') G.Insert(" ",i+1);
       if(G[i]==' ') while(i<G.Length() && G[i+1]==' ') G.Delete(i+1,1);
       if(i>1 && i<G.Length() && G[i-1]==',' && G[i]==' ')
         G[i+1] = G.LowerCase()[i+1];
       if(i>1 && i<G.Length() && obr3.Pos(G[i-1])>0 && G[i]==' ')
         G[i+1] = G.UpperCase()[i+1];
    }
     RichEdit1->Text = G;

наглядности больше.

@Vetaliycpp · 09.11.2020, 23:41 **[ТС]**

nick42, все работает но тепер ошибка когда проверку осуществляю не в первом RichEdit, а для всех страниц. я написал цикл так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
String G,obr3 = { "!?." }, obr4 = { "!?,." };
for(int h=1;h<number;h++)  {
    G=static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(h)))->Text;
     G[1] = G.UpperCase()[1];
     int i=0;
     while(++i < G.Length())
    {
       if(obr4.Pos(G[i])>0 && G[i+1] !=' ') G.Insert(" ",i+1);
       if(G[i]==' ') while(i<G.Length() && G[i+1]==' ') G.Delete(i+1,1);
       if(G[i]==' ') while(i>0 &&obr4.Pos(G[i+1])>0) G.Delete(i,1);
       if(i>1 && i<G.Length() && G[i-1]==',' && G[i]==' ')
         G[i+1] = G.LowerCase()[i+1];
       if(i>1 && i<G.Length() && obr3.Pos(G[i-1])>0 && G[i]==' ')
         G[i+1] = G.UpperCase()[i+1];
    }
     static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(h)))->Text= G;
 }

и вибивает та же ошибка что и на Insert выбилала. что ето может быть?

@nick42 · 10.11.2020, 00:19

Я переписал ваш цикл себе на кнопку; 4 ричэдита, number=5, - всё работает и текст во всех 4-х (одинаковый тестовый) корректируется правильно. Единственно, ошибка появляется при пустом ричэдите. Лечится добавлением анализа на пустоту:

C++
1
2
3
4
   String G,obr3 = { "!?." }, obr4 = { "!?,." };
   for(int h=1;h<number;h++)  {
     G=static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(h)))->Text;
    if(G.Trim().Length()) {  /* вот это добавить и не забыть закрыть скобку */

@Vetaliycpp · 10.11.2020, 04:10 **[ТС]**

nick42, Да, при условии нет ошибки но коректирует только первый RichEdit(Который задан изначально). можыт ли это быть что я когда создавал страницу(компонент RichEdit) програмно не указал какоето обезательное свойство RichEdit?Или с чем єто может быть связано?

@nick42 · 10.11.2020, 09:04

Сообщение от Vetaliycpp

когда создавал страницу(компонент RichEdit) програмно не указал

Если ричэдит создавался "в динамике" и ему не было назначено <currentrichedit>->Name, то, наверное, так и будет. Хотя, мне кажется, возможны варианты.

@Vetaliycpp · 10.11.2020, 15:15 **[ТС]**

nick42, вроде имя назначено

C++
1
2
3
4
5
6
7
8
9
10
11
12
TRichEdit* T=new TRichEdit(Panel1);
T->Parent=Panel1;
T->Left=20;
T->Top= number*45+a*(number-1)*TrackBar1->Position;
T->Name="RichEdit" + IntToStr(number);
T->Height=a*TrackBar1->Position;;
T->Width=b*TrackBar1->Position;;
T->Font->Size=StrToInt(ComboBox1->Text)*TrackBar1->Position;;
T->Paragraph->FirstIndent = (StrToInt(ComboBox3->Text)+StrToInt(ComboBox5->Text))*TrackBar1->Position;
T->Paragraph->LeftIndent = (StrToInt(ComboBox5->Text)-StrToInt(ComboBox3->Text))*TrackBar1->Position;
T->Paragraph->RightIndent = StrToInt(ComboBox4->Text)*TrackBar1->Position;
number++;

Может прописать тут все свойства как в рич едите которы не динамиен?

@nick42 · 10.11.2020, 16:08

Да нет. Я думаю - достаточно в строчке создания (где ..= new TRichEdit( ) Panel1 заменить на Form1 или this, - и всё заработает (Parent оставить как есть).

@Vetaliycpp · 10.11.2020, 16:15 **[ТС]**

Решил проблему! Яне мог сделать фиксированим статус и тулбар поэтому создал панель и в ней создавал рич едиты а когда убрал панель и динамические рич едиты создавал на форме то все проблемы решились но теперь вопрос как сделать чтоб на форме не пролистывался статус бар и тул бар когда я добавляю странице тул бур у меня прикреплен к верху формы а статус бар к низу и когда страницы добавляю то форма увеличивается и статус бар сэжает. Как мне зафиксировать статус и тул бар?

@nick42 · 10.11.2020, 16:25

Не понял. Бары, как правило, с allign alTop и alBottom..., чего их дополнительно фиксировать? Никуда статусбар съезжать не должен.

@Vetaliycpp · 10.11.2020, 18:17 **[ТС]**

nick42, ну когда я добаляю RichEdit форма у меня увеличивается в высоту а стутус бар вместе с нижней границей тоже соскальзивает вниз и приходится пролисать форму чтобы увидеть его
.

@nick42 · 10.11.2020, 21:45

Ну, можно убрать у формы AutoScroll, применить ScrollBox, другие методы пробовать... .
Да и от панели можно было не отказываться. Я уже выше писал, как исправить. А если у вас все ричэдиты на контейнере Panel, то и писать следовало не просто FindComponent (от формы по умолчанию), а PanelX->FindComponent.

@Vetaliycpp · 10.11.2020, 22:10 **[ТС]**

nick42, а как же к панеле ScrollBox приделать, чтоб созданые в нем страницы(RichEdit) прокручивал?

@nick42 · 10.11.2020, 22:28

На вскидку__ над статусбаром навешиваю панель (alTop). На панель ставлю скроллбох (alClient) и в нём размещаю все ричэдиты... Если какой-то контрол пропадает - Bring to front.

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

Создание компонента RichEdit программным путём

Решение

Решение

Решение

@Vetaliycpp 0 / 0 / 0 Регистрация: 02.11.2020 Сообщений: 24

	Builder 6 Создание компонента RichEdit программным путём 08.11.2020, 17:53. Показов 5327. Ответов 29 Метки нет (Все метки) Пишу тектовий редактор и нужно чтоб при нажатии на кнопку создавало новую страницу (компонент RichEdit) как мне это сделать? 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	08.11.2020, 23:38
	Что-то не то с местным редактором... . Попробую gif. Миниатюры 1

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	09.11.2020, 00:33
	Сообщение было отмечено Vetaliycpp как решение Решение используйте условие RichEdit[]->Focused() 1

@Vetaliycpp 0 / 0 / 0 Регистрация: 02.11.2020 Сообщений: 24
	10.11.2020, 04:10 [ТС]
	nick42, Да, при условии нет ошибки но коректирует только первый RichEdit(Который задан изначально). можыт ли это быть что я когда создавал страницу(компонент RichEdit) програмно не указал какоето обезательное свойство RichEdit?Или с чем єто может быть связано? 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	10.11.2020, 16:08
	Да нет. Я думаю - достаточно в строчке создания (где ..= new TRichEdit( ) Panel1 заменить на Form1 или this, - и всё заработает (Parent оставить как есть). 0

@Vetaliycpp 0 / 0 / 0 Регистрация: 02.11.2020 Сообщений: 24
	10.11.2020, 16:15 [ТС]
	Решил проблему! Яне мог сделать фиксированим статус и тулбар поэтому создал панель и в ней создавал рич едиты а когда убрал панель и динамические рич едиты создавал на форме то все проблемы решились но теперь вопрос как сделать чтоб на форме не пролистывался статус бар и тул бар когда я добавляю странице тул бур у меня прикреплен к верху формы а статус бар к низу и когда страницы добавляю то форма увеличивается и статус бар сэжает. Как мне зафиксировать статус и тул бар? 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	10.11.2020, 16:25
	Не понял. Бары, как правило, с allign alTop и alBottom..., чего их дополнительно фиксировать? Никуда статусбар съезжать не должен. 0

@Vetaliycpp 0 / 0 / 0 Регистрация: 02.11.2020 Сообщений: 24
	10.11.2020, 18:17 [ТС]
	nick42, ну когда я добаляю RichEdit форма у меня увеличивается в высоту а стутус бар вместе с нижней границей тоже соскальзивает вниз и приходится пролисать форму чтобы увидеть его . 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	10.11.2020, 21:45
	Ну, можно убрать у формы AutoScroll, применить ScrollBox, другие методы пробовать... . Да и от панели можно было не отказываться. Я уже выше писал, как исправить. А если у вас все ричэдиты на контейнере Panel, то и писать следовало не просто FindComponent (от формы по умолчанию), а PanelX->FindComponent. 0

@Vetaliycpp 0 / 0 / 0 Регистрация: 02.11.2020 Сообщений: 24
	10.11.2020, 22:10 [ТС]
	nick42, а как же к панеле ScrollBox приделать, чтоб созданые в нем страницы(RichEdit) прокручивал? 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	10.11.2020, 22:28
	На вскидку__ над статусбаром навешиваю панель (alTop). На панель ставлю скроллбох (alClient) и в нём размещаю все ричэдиты... Если какой-то контрол пропадает - Bring to front. Миниатюры 1