TService and inheritance?
Where and When is the TService descendant instantiated?
Is there some sort of compiler magic for services?
Getting weird .dfm property issues when trying to open the service unit that inherits the first one – without being able to see why.
Is it actually possible to create a descendant from TService (beyond the initial first level) and have that properly instantiated?
Unit1 – a normal service unit:
TServiceGen = class(TService)
procedure SomethingInCommon; virtual;
Unit2 – a second service unit, but with the parent changed from TService to TServiceGen
TServiceGenChild = class(TServiceGen)
procedure SomethingInCommon; override;
The Unit 2 dfm looks like
object ServiceGenChild: TServiceGenChild
OldCreateOrder = False
AllowPause = False
DisplayName = ‘PSD Server’
WaitHint = 10000
Height = 268
Width = 343
Unit 1 is ok, but loading Unit 2 into the IDE, shows the following error: