Zitat:
dort eine Registrierungsstelle anzubieten
Das würde ich wie machen ?
Definiere ein Register-Funktion denen du die Klasse übergibst:
Delphi-Quellcode:
type
TInputDeviceClass = class of TInputDevice;
var
ReisteredDevices: TObjectList;
procedure Register Device(DeviceClass: TInputDeviceClass)
begin
ReisteredDevices.Add(DeviceClass);
end;
Mit neuen Delphi-Versionen könntest du natürlich mit Generics bei RegisteredDevices arbeiten um das ganze gecaste zu ersparen.