![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Наследник сервиса и его использование
race1 © (2007-08-23 14:45:00)Есть две задачи, которые решаются двумя разными программами, но задачи очень похоже и хочется сделать один базовый класс и от него отнаследовать два производных, которые будут делать то что нужно.
Написал "базовый" сервис (TServiceBase = class(TService)), пытаюсь сделать от него дочерний класс (TServiceOne = class(TServiceBase)). И ничего не получается. Дельфи считает что TServiceOne это форма.
Можно как-нибудь такое сделать?
race1 (2007-08-23 15:02:00) [1]Мой косяк... Я вручную написал базовый класс для нового сервиса. Если сделать через new - inheritable items то всё нормально... :[
Сергей М. (2007-08-23 14:55:00) [2]А что у тебя прописано в dpr сервис-проекта ?
clickmaker (2007-08-23 14:53:00) [3]F1 - TService - Hierarchy смотрел?
race1 (2007-08-23 14:52:00) [4]Ну да... Открываю модуль где объявлен этот класс (TServiceOne), нажимаю F12 и вместо сервиса (как дата-модуль) вижу обыкновенную форму...
Сергей М. (2007-08-23 14:47:00) [5]
> Дельфи считает что TServiceOne это форма
Прямо так и говорит, мол, считаю чтот форма ?)
Eraser (2007-08-23 14:47:00) [6]
> race1 (23.08.07 14:45)
> Дельфи считает что TServiceOne это форма.
так и говорит? )