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.