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

← →
race1 (2007-08-23 14:45) [0]

Есть две задачи, которые решаются двумя разными программами, но задачи очень похоже и хочется сделать один базовый класс и от него отнаследовать два производных, которые будут делать то что нужно.

Написал "базовый" сервис (TServiceBase = class(TService)), пытаюсь сделать от него дочерний класс (TServiceOne = class(TServiceBase)). И ничего не получается. Дельфи считает что TServiceOne это форма.

Можно как-нибудь такое сделать?

← →
Сергей М. © (2007-08-23 14:47) [1]

> Дельфи считает что TServiceOne это форма

Прямо так и говорит, мол, считаю чтот форма ?)

← →
Eraser © (2007-08-23 14:47) [2]

> race1 (23.08.07 14:45)

> Дельфи считает что TServiceOne это форма.

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

← →
race1 (2007-08-23 14:52) [3]

Ну да... Открываю модуль где объявлен этот класс (TServiceOne), нажимаю F12 и вместо сервиса (как дата-модуль) вижу обыкновенную форму...

← →
clickmaker © (2007-08-23 14:53) [4]

F1 - TService - Hierarchy смотрел?

А что у тебя прописано в dpr сервис-проекта ?

← →
race1 (2007-08-23 15:02) [6]

Мой косяк... Я вручную написал базовый класс для нового сервиса. Если сделать через new - inheritable items то всё нормально... :[

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