Главная страница
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.031 c
15-1141399738
kaif
2006-03-03 18:28
2006.03.26
Прочее или Иное ?


2-1141893283
kyn66
2006-03-09 11:34
2006.03.26
Добавить объект в ListBox


15-1141165762
McSimm
2006-03-01 01:29
2006.03.26
Специально для пользователей клиентских программ


3-1138952777
Igor_
2006-02-03 10:46
2006.03.26
Транзакции MSSQL - работа через BDE


2-1141880160
Rado
2006-03-09 07:56
2006.03.26
dbgrid