Создание компонента 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 месяца поэтому и не знал такого. Спасибо тогда на етом вы мне очень много чего подсказали чего я до этого не знал или не понимал

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

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

	Builder 6 Создание компонента RichEdit программным путём 08.11.2020, 17:53. Показов 5618. Ответов 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