ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Переопределение события
3 сообщений из 3, страница 1 из 1
Переопределение события
    #32282249
Петр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Петр
Участник
Господа, поскажите, никак не могу сообразить простую вещь.
Создаю компоненту потомок TADODataSet, как определяется конструкция которая бы выполняла некий кусок кода по событию ADODataSet.AfterOpen.
Обязательно ли оформлять это как

type
TADODataSetA = class(TADODataSet)
***
constructor TADODataSetA.Create(AOwner: TADODataSet);
begin
inherited Create(AOwner);
AOwnert.AfterOpen := AfterOpenMy;
...
Рейтинг: 0 / 0
02.10.2003, 16:05
| Ответить | Цитировать | Написать  
Переопределение события
    #32282300
pkarklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pkarklin
Участник
Тебе надо переопределить метод DoAfterOpen, объявленного в TDataSet. Примерно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
type
  TMyADODataSet = class(TADODataSet)
    procedure DoAfterOpen; override;
  end;

...

procedure TMyADODataSet.DoAfterOpen;
begin
  //Здесь твоя обработка
  inherited DoAfterOpen;
end;
...
Рейтинг: 0 / 0
02.10.2003, 16:32
| Ответить | Цитировать | Написать  
Переопределение события
    #32282330
Петр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Петр
Участник
2pkarklin Спасибо, он самое...
...
Рейтинг: 0 / 0
02.10.2003, 16:54
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Переопределение события
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]