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

Вниз

Как из события передать указатель на объект в мой обработчик?   Найти похожие ветки 

 
Ш-К   (2004-02-27 15:20) [0]

Делаю следующее:

TDataSetAccessEvent = procedure(Sender: TObject; var ADataSet: TDataSet) of object;
...

TFilterFrame = class(TComponent)
FInnerDataSet: TDataSet;
FOnCreateInnerDataSet: TDataSetAccessEvent;
...
procedure DoCreateInnerDataSet(Sender: TObject);
property OnCreateInnerDataSet: TDataSetAccessEvent read FOnCreateInnerDataSet write FOnCreateInnerDataSet;
end;
...

procedure TFilterFrame.DoCreateInnerDataSet(Sender: TObject);
begin
if Assigned(FOnCreateInnerDataSet) then
FOnCreateInnerDataSet(Sender, FInnerDataSet);

end;

Т.е. я хочу потом, при вызове обработчика OnCreateInnerDataSet, где-то далеко за внутренностями компонента проинициировать FInnerDataSet.
Именно через событие передать (в ADataSet), а не присваиванием.

Как это сделать?


 
Тимохов ©   (2004-02-27 15:22) [1]

У вас вроде все уже написано.
Теперь в обработчике создавайте компонент.
Или я вопрос не догнал?


 
Тимохов ©   (2004-02-27 15:23) [2]


> , где-то далеко за внутренностями компонента
>

Это что значит?


 
WebErr ©   (2004-02-27 15:25) [3]

Всё стандартно... в чём проблема-то? :))))


 
Ш-К   (2004-02-27 15:33) [4]

Торможу.

После такой процедуры:
procedure CreateInnerDataSet(Sender: TObject; var ADataSet: TDataSet);
begin
ADataSet:= OtherDataSet;
end;

В FInnerDataSet будет OtherDataSet?


 
Тимохов ©   (2004-02-27 15:34) [5]


> Ш-К (27.02.04 15:33) [4]

При условии наличия кода из вопроса?
Ответ, да.


 
Ш-К   (2004-02-27 15:41) [6]

Всем спасибо. Я не там искал глюки :)



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

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

Наверх




Память: 0.48 MB
Время: 0.022 c
1-43516
Ultr
2004-02-22 00:14
2004.03.14
Создание файла с заданным размером


14-43851
Undert
2004-02-19 18:58
2004.03.14
Как в HTML сделать SpinEdit ?


14-43800
NeyroSpace
2004-02-19 13:58
2004.03.14
MicroSoft ISA


7-43930
CC
2003-12-24 15:21
2004.03.14
сканирование рисунка


3-43263
Sirgfine
2004-02-06 04:42
2004.03.14
Индексация в qBase