Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Наследник сервиса и его использование


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 это форма.

так и говорит? )


Наверх

Титульная страница Поиск, карта сайта Написать письмо