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

@xVahax · Регистрация: 27.11.2012

Всем привет.
Не знал как сформулировать тему - поэтому не бейте меня.

Такая ситуация:
Есть Модуль1 - форма (назовем Form1), кнопка и процедура (RunRun).
Есть Модуль2 - форма (назовем Form2) и кнопка (btStart).

Из Модуля1 создаю форму Модуля2 по нажатию кнопки:

Delphi

1	Form2:=TFormTwo.Create(Self);

Как мне сделать так, чтобы по событию нажатия кнопки btStart (Модуль2)
вызывалась процедура RunRun (Модуль1), но без явного указания имени формы: Form1.RunRun?

Т.е. сделал Модуль2 и больше не трогаю,
из любого другого создаю его и он выполняет нужную процедуру создателя.

@krapotkin · 21.06.2018, 22:54

вариант как это сделать довольно прост - передать ссылку на процедуру и готово
вообще именно так заполняются все ссылки на обработчики всех событий компонентов

Delphi

Type
TObjProc=procedure of object;
 
TForm2=class
..
pr:TObjProc;
end;
 
procedure TForm2.b1Click(...);
begin
  pr;
end;

Delphi

procedure TForm1.MyProc();
begin
....
end;
 
procedure Tform1.Button1Click(Sender:TObject);
begin
f:=TForm2.Create(Self);
f.p:=MyProc;
f.showModal();
f.free;
end;

@xVahax · 21.06.2018, 23:35 **[ТС]**

Спасибо большое, krapotkin!
Именно то, что мне нужно - оказалось все невероятно просто, а я через указатели пытался

@northener · 22.06.2018, 02:58

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

без явного указания имени формы: Form1

Без явного указания имени переменной, хранящей указатель на конкретный экземпляр формы достаточно передать ссылку на экземпляр формы, а не на её метод.
Тем более что в примере krapotkin она уже явно передана и хранится в свойстве f.Owner.
Тем более, что при этом доступны все public методы вызвавшей формы, а не один конкретный.

@krapotkin · 22.06.2018, 06:56

northener, нюанс в том, что Unit2 здесь ничего не знает о Unit1
и это в большинстве случаев более чем хорошо )

Добавлено через 20 секунд

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

я через указатели

это и есть указатели)))

@xVahax 18 / 17 / 0 Регистрация: 27.11.2012 Сообщений: 353
	21.06.2018, 23:35 [ТС]	3
	Спасибо большое, krapotkin! Именно то, что мне нужно - оказалось все невероятно просто, а я через указатели пытался 0

@northener пофигист широкого профиля 4601 / 3061 / 850 Регистрация: 15.07.2013 Сообщений: 17,653
	22.06.2018, 02:58	4
	Сообщение от xVahax без явного указания имени формы: Form1 Без явного указания имени переменной, хранящей указатель на конкретный экземпляр формы достаточно передать ссылку на экземпляр формы, а не на её метод. Тем более что в примере krapotkin она уже явно передана и хранится в свойстве f.Owner. Тем более, что при этом доступны все public методы вызвавшей формы, а не один конкретный. 0

@krapotkin 5438 / 4263 / 1374 Регистрация: 14.04.2014 Сообщений: 19,195 Записей в блоге: 19
	22.06.2018, 06:56	5
	northener, нюанс в том, что Unit2 здесь ничего не знает о Unit1 и это в большинстве случаев более чем хорошо ) Добавлено через 20 секунд Сообщение от xVahax я через указатели это и есть указатели))) 0

Опции темы

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

Решение