Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];

Вниз

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

 
Ш-К   (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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.018 c
1-43608
Kyrt
2004-03-03 02:29
2004.03.14
TreeView


3-43301
3APA3A
2004-02-11 11:38
2004.03.14
приведение типов в SQL


14-43835
Mentov
2004-02-22 17:28
2004.03.14
TWebBrowser, проблема со скроллом


1-43619
ghg
2004-03-02 14:52
2004.03.14
закон перехода от одного цвета к другому


1-43596
Andrey_ck
2004-02-27 10:53
2004.03.14
Запуск программы из своей программы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский