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

Вниз

DBGrid и "DataSet.AfterOpen"   Найти похожие ветки 

 
Silver... ©   (2006-02-02 17:07) [0]

Как мне "из-под (от его имени)" DBGrid-а узнать что он сеичас будет данные заливать (типа уловить что у его DataSet-а случилось DataSet.Open)

Поесню(упрощенно): Есть Фрейм На нем лежит DBGrid и панель с меткой. Так вот как тока в DBGrid сливаются данные мне нужно в метке положить данные из др. DataSet-а.
 Конечно мог бы сделать в DataSet.AfterOpen но тока вот беда этот фреим имеется и на др. формах не буду же обработку в каждоы форме делать или в AfterOpen все Фреймы искать ктоб в Метке инфу показать. Вот и радилась идея словить момент когда DBGrid заливает данные и при этом и с меткой разобраться


 
Ega23 ©   (2006-02-02 17:25) [1]


TMyFrame = class (TFrame)
 DBGrid : TDBGrid;
 ........

 procedure DataSetafterOpen(DataSet:TDataSet);

private
 .....
 FOldafterOpen :  TDataSetNotifyEvent;
public
 procedure AfterConstruction; override;
 procedure BeforeDestruction; override;

end;

procedure TMyFrame.AfterConstruction;
begin
 inherited;

 FOldafterOpen:=DBGrid.DataSource.DataSet.AfterOpen;
 DBGrid.DataSource.DataSet.AfterOpen:=DataSetafterOpen;
end;

procedure TMyFrame.BeforeDestruction;
begin
 DBGrid.DataSource.DataSet.AfterOpen:=FOldafterOpen;
 
 inherited;
end;

procedure DataSetafterOpen(DataSet : TDataSet);
begin
 if Assigned(FOldafterOpen) then FOldafterOpen(DataSet);

 Тут твой обработчик
end;


Вроде так...


 
Silver... ©   (2006-02-02 17:50) [2]

Ega23 ©   (02.02.06 17:25) [1]
Спасибец даже не ожидал так быстро ПРАВЕЛЬНЫЙ ответ получить



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

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

Наверх




Память: 0.47 MB
Время: 0.025 c
15-1141306452
Amerzone
2006-03-02 16:34
2006.03.26
Посоветуйте бесплатный хостинг


2-1141910495
11111
2006-03-09 16:21
2006.03.26
Ерунда какая-то с числами


15-1141284592
КаПиБаРа
2006-03-02 10:29
2006.03.26
Каким будет программирование в 2030 году?


2-1141820098
Fenix
2006-03-08 15:14
2006.03.26
Форма и ДЛЛ


3-1138801962
DelphiFan
2006-02-01 16:52
2006.03.26
Фильтрация в TTable по полю ftDateTime