Создание событий для динамически созданных объектов

@Greens239 · Регистрация: 23.04.2014

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure Addrich; {добавление компонента на экран }
begin
rich1:=TRichedit.Create(form2.scrollbox1);
rich1.Parent:=form2.ScrollBox1;
rich1.Top:=(mouse.CursorPos.Y)-form2.Top-form2.ScrollBox1.Top-53;
rich1.Left:=(mouse.CursorPos.X)-form2.Left-form2.ScrollBox1.left-10;
end;
 
procedure changepos;
var i:integer;
begin
for i:=0 to form2.ScrollBox1.ComponentCount-1 do
if form2.ScrollBox1.Components[i] is TRichEdit then
with form2.ScrollBox1.Components[i] as TRichEdit do
begin
procedure TForm2.rich1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
rich1.Cursor:=crsizeall;
end;
end;
end;

Не работает это все дело, подскажите , как создать событие для динамически созданного объекта

@krapotkin · 29.04.2014, 21:36

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm2.rich1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
  rich1.Cursor:=crsizeall;
end;
 
procedure TForm2.CreateRich;
begin
  rich1:=TRichedit.Create(form2);
  rich1.Parent:=form2.ScrollBox1;
  rich1.Top:=xxx;
  rich1.Left:=yyy;
  rich1.onMouseDown := rich1MouseDown;
end;

@Greens239 · 29.04.2014, 23:17 **[ТС]**

спасибо

@northener · 29.04.2014, 23:22

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

Delphi
1
2
3
4
5
6
7
8
with form2.ScrollBox1.Components[i] as TRichEdit do
begin
procedure TForm2.rich1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
rich1.Cursor:=crsizeall;
end;
end;

Вот это бред. Потому и не работает.

Delphi
1
2
3
4
5
6
7
8
procedure Addrich; {добавление компонента на экран }
begin
rich1:=TRichedit.Create(form2.scrollbox1);
rich1.Parent:=form2.ScrollBox1;
rich1.Top:=(mouse.CursorPos.Y)-form2.Top-form2.ScrollBox1.Top-53;
rich1.Left:=(mouse.CursorPos.X)-form2.Left-form2.ScrollBox1.left-10;
rich1.OnMouseDown:=form2.rich1MouseDown;
end;

@Greens239 · 29.04.2014, 23:37 **[ТС]**

Скажите пожалуйста, нужно ли добавить заголовок в interface имею ввиду procedure TForm2.rich1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Я добавил, все ровно не компилит ничего.
Даже если не добавлять, все ровно не компилит.

Добавлено через 7 минут

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure rich1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
  rich1.Cursor:=crsizeall;
end;
 
 
procedure addrich; 
begin
rich1:=TRichedit.Create(form2.scrollbox1);
rich1.Parent:=form2.ScrollBox1;
rich1.Top:=(mouse.CursorPos.Y)-form2.Top-form2.ScrollBox1.Top-53;
rich1.Left:=(mouse.CursorPos.X)-form2.Left-form2.ScrollBox1.left-10;
rich1.OnMouseDown:=form2.rich1MouseDown();
end;

ВОт так вот сделал.

@northener · 29.04.2014, 23:40

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

нужно ли добавить заголовок в interface имею ввиду procedure TForm2.rich1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

Не просто в interface, а конкретно в описание класса TForm2.
И в секции implementation должно быть написано не procedure rich1MouseDown, а procedure TForm2.rich1MouseDown

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". 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. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Greens239 1 / 1 / 1 Регистрация: 23.04.2014 Сообщений: 176
	29.04.2014, 23:17 [ТС]
	спасибо 0

Создание событий для динамически созданных объектов

Решение