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

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

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

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

@nick42 · 10.11.2020, 22:46

Впрочем, можно и с одним скроллбоксом (alClient) без панели (просто я их люблю...

).

@Vetaliycpp · 11.11.2020, 03:48 **[ТС]**

да создает. А как тогда правильно обращаться програмно к RichEdit?. Я написал

C++
1
ScrollBox1->FindComponent("RichEdit" + IntToStr(i)))

запустилась програ но вибила ошибка когда я вызвал кнопку где это обращения. А когда пишу так

C++
1
Panel1->ScrollBox1->FindComponent("RichEdit" + IntToStr(i)))

то сразу ошибка что так нельзя писать. RichEdit создаются у ScrollBox1 которая в Panel1 и прокрутка работает и статус бар не исчезает. Но теперь вопрос как обратится програмно к динамичным RichEdit?
Воч что прописал когда создавал

C++
1
2
TRichEdit* T=new TRichEdit(ScrollBox1);
T->Parent=ScrollBox1;

и когда создал тоже просто скрол бокс без панели и в нем RichEdit создаю то тоже ошибка

Добавлено через 15 минут
а все порешал просто обращатся FindComponent

Добавлено через 13 минут
тут ёщо вопрос. как мне переносить текст между рич едитами. Я впринцыве понимаю что нужно вызвать событие если RichEdit не динамичен OnChange и если переполнен то переход фокуса на другой рич едит но если у нас они динамичные то как создавать для них событие а точнее наверное масив событий чтоб проверяли где курсор вызывали событие рич едита в котором курсор и если переполнен то на другой едит а если ево нет то новый создать. Я прописывал событие для формы OnKeyPress и думал что оно будет для любого нажатия клавишы и прописал такое но как вы уже поняли что ничего не вышло(

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
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
 
for(int i=0;i<number;i++){
if(static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(i)))->Focused()&&static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(i)))->Text.Length()==2) {
if(i==number-1){
TRichEdit* T=new TRichEdit(ScrollBox1);
T->Parent=ScrollBox1;
T->Left=20;
T->Top= number*45+a*(number)*TrackBar1->Position;
T->Name="RichEdit" + IntToStr(number);
T->Height=a*TrackBar1->Position;
T->Width=b*TrackBar1->Position;
T->Font->Size=static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(number)))->Font->Size;
T->Paragraph->FirstIndent = static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(number)))->Paragraph->FirstIndent;
T->Paragraph->LeftIndent = static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(number)))->Paragraph->LeftIndent;
T->Paragraph->RightIndent = static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(number)))->Paragraph->RightIndent;
static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(number)))->Cursor;
number++;
}
else{ static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(i+1)))->Cursor;
}
}
}
}

Как зделать правильно?

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

Добавлено через 1 час 7 минут
Я уже решил ошибку с страницами просто создавая первый рич едит в FormActivate в скрол боксе и обращаюс так :ScrollBox1->FindComponent("RichEdit" + IntToStr(i)))
теперь вопрос как переносы между страницами зделать?

@nick42 · 11.11.2020, 11:40

Когда создаете новый ричэдит, добавьте строку_

C++
1
T->OnChange = RichEdit1Change;

(Т - создаваемый RichEdit). А в обработчике RichEdit1Change в самом вначале впишите...

C++
1
  TRichEdit *red = (TRichEdit*)Sender;

ну, или через cast, и внутри замените все упоминания RichEdit1 на этот новоявленный red. Под red здесь будет пониматься вызвавший обработчик ричэдит, в том числе динамический. Естественно, всем этим ричэдитам в качестве обработчика OnChange должен быть сопоставлен этот RichEdit1Change.

Добавлено через 1 час 35 минут
И, кстати, мне не очень понятно само это создание множества ричэдитов, их "переполнение"... . Я сделал загрузку в StringList большого текстового файла; его загружаю в RichEdit; у того выставил в false HideScrollBars и ScrollBars - ssVertical, и 23 Мб текста в него отлично помещаются. Только ждать пару секунд приходится, пока идет его загрузка. О каком переполнении речь?

Добавлено через 34 минуты
И ещё не могу сообразить такую штуку: в стринглист этот большой файл грузится быстро, - меньше секунды. И при пустом RichEdit'е еще 3-4 секунды заполняется он. Вот по такому "сценарию"...

C++
1
2
3
4
5
6
7
void __fastcall TForm1::ScrollBox1DblClick(TObject *Sender)
{
    SL->LoadFromFile("test.txt");
     RichEdit1->Visible =0;
    RichEdit1->Text=SL->Text ;
     RichEdit1->Visible =1;
}

Но когда то же при заполненном RichEdite (т.е. повторный DblClick), то значительно короче... - по секунде загрузка в StringList и в RichEdit. Или просто это глюки визуализации и я зря ломаю голову?

@Vetaliycpp · 11.11.2020, 14:23 **[ТС]**

nick42, А что делать если у меня уже первый RichEdit создается динамично в FormActivate как догда создавать обработчик. Когда прописую при создании в FormActivate это:

C++
1
 T->OnChange = RichEdit1Change;

то пишет сразу ошибку потом я понял что RichEdit1 создался динамично и понял что надо через компонент обратится попробывал так:

C++
1
T->OnChange=static_cast<TRichEdit*>(ScrollBox1->FindComponent("RichEdit" + IntToStr(1)+"Change"));

и тоже ошибка. А если изначально задать RichEdit1 то уже придется все обращение переделывать если первая страница прописывать так FindComponent("RichEdit" + IntToStr(1)) а когда динамично то вот так ScrollBox1->FindComponent("RichEdit" + IntToStr(1)). Делать так? и создавать для сознаного програмой RichEdit1 OnChsnge. Или все же можно както в FormActivate вызвать?Или я немношко наверно непонял(

@nick42 · 11.11.2020, 15:20

Сначала я хотел бы понять смысл "создавать RichEdit динамично". [Тогда многое понятно: и почему HideScrollBars (это же по умолчанию...), и др.]

@Vetaliycpp · 11.11.2020, 16:31 **[ТС]**

nick42, вот так

C++
1
2
3
4
5
6
7
8
9
10
11
TRichEdit* T=new TRichEdit(ScrollBox1);
T->Parent=ScrollBox1;
T->Left=20;
T->Top= number*45+a*(number)*TrackBar1->Position;
T->Name="RichEdit" + IntToStr(number);
T->Height=a*TrackBar1->Position;
T->Width=b*TrackBar1->Position;
T->Font->Size=static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(number)))->Font->Size;
T->Paragraph->FirstIndent = static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(number)))->Paragraph->FirstIndent;
T->Paragraph->LeftIndent = static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(number)))->Paragraph->LeftIndent;
T->Paragraph->RightIndent = static_cast<TRichEdit*>(FindComponent("RichEdit" + IntToStr(number)))->Paragraph->RightIndent;

@nick42 · 11.11.2020, 16:46

я это уже не раз видел...
Смысла динамического создания штатных компонентов я - лентяй - не вижу! когда все можно создать и настроить в дизайне.
Зачем создавать кучу RichEdit'ов? Если бы было несколько документов одновременно на редактировании, - ну, тогда понятно; и для этого я вначале рекомендовал PageControl.

@Vetaliycpp · 11.11.2020, 17:06 **[ТС]**

я просто думаю как сделать чтоб как в ворде листки были. А как с помощю PageControl ето сделать?

@nick42 · 11.11.2020, 17:11

"как в ворде"... мелкомягкие над офисом своим не один десяток лет коллективно трудятся; про пакет 97 я и сейчас вспоминаю с содроганием... .
Лучше в общих чертах напишите, что хотите (по минимуму), и с чего начались проблемы. А там видно будет.

@Vetaliycpp · 11.11.2020, 18:14 **[ТС]**

nick42, впринцыпе все такто работает что задумал. Но рас уж это такая сложная затея тогда сделаю попроще. Я так-то новичок учу билдер 2 месяца поэтому и не знал такого. Спасибо тогда на етом вы мне очень много чего подсказали чего я до этого не знал или не понимал

Новые блоги и статьи Все статьи Все блоги /
Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .

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

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

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	10.11.2020, 22:46
	Впрочем, можно и с одним скроллбоксом (alClient) без панели (просто я их люблю... ). 1

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	11.11.2020, 15:20
	Сначала я хотел бы понять смысл "создавать RichEdit динамично". [Тогда многое понятно: и почему HideScrollBars (это же по умолчанию...), и др.] 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	11.11.2020, 16:46
	я это уже не раз видел... Смысла динамического создания штатных компонентов я - лентяй - не вижу! когда все можно создать и настроить в дизайне. Зачем создавать кучу RichEdit'ов? Если бы было несколько документов одновременно на редактировании, - ну, тогда понятно; и для этого я вначале рекомендовал PageControl. 0

@Vetaliycpp 0 / 0 / 0 Регистрация: 02.11.2020 Сообщений: 24
	11.11.2020, 17:06 [ТС]
	я просто думаю как сделать чтоб как в ворде листки были. А как с помощю PageControl ето сделать? 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	11.11.2020, 17:11
	"как в ворде"... мелкомягкие над офисом своим не один десяток лет коллективно трудятся; про пакет 97 я и сейчас вспоминаю с содроганием... . Лучше в общих чертах напишите, что хотите (по минимуму), и с чего начались проблемы. А там видно будет. 1

@Vetaliycpp 0 / 0 / 0 Регистрация: 02.11.2020 Сообщений: 24
	11.11.2020, 18:14 [ТС]
	nick42, впринцыпе все такто работает что задумал. Но рас уж это такая сложная затея тогда сделаю попроще. Я так-то новичок учу билдер 2 месяца поэтому и не знал такого. Спасибо тогда на етом вы мне очень много чего подсказали чего я до этого не знал или не понимал 0