Главная страница
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.039 c
11-43417
BelchonokH
2003-06-26 21:32
2004.03.14
form.close или form.free?


8-43696
Borealis
2003-11-09 19:23
2004.03.14
24-битный цвет в 8-битный


14-43846
SPeller
2004-01-23 13:38
2004.03.14
Бывают же люди...


14-43785
zamkom
2004-02-18 16:36
2004.03.14
Не работает поиск.


3-43251
pavel_guzhanov
2004-02-13 11:15
2004.03.14
документация по MSSQL в Delphi