Klassen Wegoptimieren abschalten ?

[Bernhard Geyer]

Zitat von moelski:

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.

[himitsu]

Bei Register Device ist bestimmt ausversehn ein Leerzeichen reingerutscht.

Und dann einfach nur noch die Klassen da registrieren, wo sie erstellt wurden.

Delphi-Quellcode:

type
  TMyInputDevice = class(TInputDevice)

  end;

  ...

initialization
  RegisterDevice(TMyInputDevice);

end.