Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

обращение к процедуре родительской формы [D7]

Alex7 © (2005-12-21 10:41:00)
Уважаемые мастера! Подскажите, пожалуйста
как в процедуре фрейма сослаться на процедуру
родительской формы, не используя имя родителя ?
Например, в варианте:
procedure TFrame1.ProcB (Sender: TObject);
begin
Form1 ProcA(Sender);
end;
Хотелось бы вместо конкретного "Form1" указать что-то
вроде обобщенного "Parent".
Спасибо.

Alex7 (2005-12-21 20:40:00) [1]
Понял. Получилось.Спасибо.

Desdechado (2005-12-21 18:39:00) [2]
во фрейме
public
OnDataChanged: TNotifyEvent;

при инициализации формы с фреймом
Frame1.OnDataChanged := DataChanged;

в форме с фреймом
procedure TForm1.DataChanged( Sender: TObject );
begin
// твоя обработка
end;

Alex7 (2005-12-21 12:35:00) [3]
> создай во фрейме указатель

Что-то я не все понял. Нельзя ли проиллюстрировать
на каком-нибудь примере? Спасибо.

Desdechado (2005-12-21 11:27:00) [4]
> TForm1(Owner).ProcA(Sender);
если фрейм на нескольких формах может быть (а именно для этого фреймы и придуманы), то не катит

evvcom (2005-12-21 11:07:00) [5]

> что есть

ладно, чего-то я упустил мыслю про фрейм. Фрейм создан формой, значит так:
if Owner is TForm1 then TForm1(Owner).ProcA(Sender);

evvcom (2005-12-21 11:03:00) [6]

> сослаться на процедуру
> родительской формы

что есть в твоем понимании "родительская форма"?

Desdechado (2005-12-21 10:50:00) [7]
создай во фрейме указатель на некоторое твое событие
в вызывающей форме присваиваешь ему указатель на ее функцию
во фрейме проверяешь свой внутренний указатель на nil и вызываешь его, если не пустой

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »