Главная страница
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.019 c
1-43643
snake1977
2004-03-02 08:43
2004.03.14
Паралельная работа с файлами


14-43827
snake1977
2004-02-22 18:17
2004.03.14
ORACLE


14-43772
Beria
2004-02-17 06:49
2004.03.14
С чего начать делать игру? - КОНЕЧНО С ВЫБОРА СРЕДЫ!!


1-43625
Plt
2004-03-02 11:59
2004.03.14
Проблема с ComboBox.ItemIndex


14-43789
arbin
2004-02-18 15:22
2004.03.14
Конкурс на лучшее поздравление к 23 февраля