Vererbung: Gemeinsame Methode von unterschiedlichen Klassen

[blackdrake]

Hallo.

Zitat von mkinzler:

ClassHelper gehen sei D10 auch unter Win32

Gut das zu wissen. Dann mach ich eben in Turbo Delphi weiter. (Wollte eigentlich mit D7 Kompatibel bleiben, aber naja...)

Mit dem Begriff subclassing weiß ich nichts richtiges anzufangen. Kann es sein, dass damit lediglich die Vererbung, also die "Unter-Klassen" (Unterklasse ?= Vererbte Klasse) gemeint ist?

Ich habe jetzt folgenden Code mit einem Interface... Und wie geht's weiter? Ich weiß, was Interfaces sind und ich weiß, was Helferklassen sind. Aber wie bringt man sowas zusammen, sodass eine Problemlösung entsteht?

Delphi-Quellcode:

type
  ITest = interface(IInterface)
    procedure MeineProzedur;
  end;

  TComponentA = class(TGraphicControl, ITest)
  protected
    procedure MeineProzedur;
  end;

  TComponentB = class(TWinControl, ITest)
  protected
    procedure MeineProzedur;
  end;

  TGemeinsamerNenner = class(???) // <-- was jetzt?
  end;

  THandlerComponent = class(TComponent)
  private
    ComponentToHandle: TGemeinsamerNenner;
  public
    procedure Irgendwas; // <-- benötigt Zugriff auf ComponentToHandle.MeineProzedur();
  end;

Gruß
blackdrake