Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

обращение к процедуре родительской формы   Найти похожие ветки 

 
Alex7   (2005-12-21 10:41) [0]

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


 
Desdechado ©   (2005-12-21 10:50) [1]

создай во фрейме указатель на некоторое твое событие
в вызывающей форме присваиваешь ему указатель на ее функцию
во фрейме проверяешь свой внутренний указатель на nil и вызываешь его, если не пустой


 
evvcom ©   (2005-12-21 11:03) [2]


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

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


 
evvcom ©   (2005-12-21 11:07) [3]


> что есть

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


 
Desdechado ©   (2005-12-21 11:27) [4]

> TForm1(Owner).ProcA(Sender);
если фрейм на нескольких формах может быть (а именно для этого фреймы и придуманы), то не катит


 
Alex7   (2005-12-21 12:35) [5]

> создай во фрейме указатель

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


 
Desdechado ©   (2005-12-21 18:39) [6]

во фрейме
public
 OnDataChanged: TNotifyEvent;

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

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


 
Alex7   (2005-12-21 20:40) [7]

Понял. Получилось.Спасибо.



Страницы: 1 вся ветка

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
5-1120571225
Priest
2005-07-05 17:47
2006.01.08
Количество строк в выпадающем списке св-ва в Objeсе Inspector


14-1134195633
begin...end
2005-12-10 09:20
2006.01.08
С Днём рождения! 10 декабря


2-1135245369
Mahab
2005-12-22 12:56
2006.01.08
Копирование файлов


1-1133989699
graffik
2005-12-08 00:08
2006.01.08
Управление компонентами в среде Solid Works посредством Delphi


2-1134977546
oleg777
2005-12-19 10:32
2006.01.08
Регистрация в MSSQL Server 2000