Hallo.
Ich habe mal wieder ein Problem mit der Vererbung beim
VCL-Entwickeln.
Folgender, verallgemeinerte und sehr vereinfachter Code soll mein Problem (hoffentlich verständlich) beschreiben:
Delphi-Quellcode:
type
TComponentA = class(TGraphicControl)
protected
procedure MeineProzedur;
end;
TComponentB = class(TWinControl)
protected
procedure MeineProzedur;
end;
In diesem Beispiel erweitere ich TGraphicControl und TWinControl einfach nur um eine Prozedur. In meinem Code wird jedoch die jeweilige Komponente z.B. TLabel mit diversen Eigenschaften und private/public-Methoden/Feldern erweitert.
Das Problem kommt nun:
Delphi-Quellcode:
type
THandlerComponent = class(TComponent)
private
ComponentToHandle: TComponentA;
public
procedure Irgendwas;
end;
procedure THandlerComponent.Irgendwas;
begin
if Assigned(ComponentToHandle) then ComponentToHandle.MeineProzedur;
end;
Die Klasse THandlerComponent ist also auf TComponentA fest eingestellt. Ich möchte aber auch TComponentB in die Klasse bei "ComponentToHandle" aufnehmen.
Die Lösung derzeit ist, dass ich für jede TComponentX eine eigene HandlerComponent-Klasse definiere:
Delphi-Quellcode:
type
THandlerComponentA = class(TComponent)
private
ComponentToHandle: TComponentA;
public
procedure Irgendwas;
end;
THandlerComponentB = class(TComponent)
private
ComponentToHandle: TComponentB;
public
procedure Irgendwas;
end;
procedure THandlerComponentA.Irgendwas;
begin
if Assigned(ComponentToHandle) then ComponentToHandle.MeineProzedur;
end;
procedure THandlerComponentB.Irgendwas;
begin
if Assigned(ComponentToHandle) then ComponentToHandle.MeineProzedur;
end;
Das geht mir natürlich mächtig auf den Keks, da ich bei 10 TComponentX auch 10 THandlerComponentX bräuchte, obwohl der Code stets der selbe ist, mit Ausnahme, dass ich jeweils den TComponentX-Typ in der private-Deklaration ändere.
Dabei erachte ich es als unnötig, dass ich 10 THandlerComponentX für 10 TComponentX erstelle, da der gemeinsame Nenner ja stets die Prozedur "MeineProzedur" ist, die in allen TComponentX vorhanden ist, egal wie unterschiedlich sie sich sind.
Ich müsse eigentlich für eine Lösung einen gemeinsamen Nenner von TWinControl und TGraphicControl finden. Dieser wäre TControl.
Das private-Symbol "ComponentToHandle" kann jedoch nicht TControl sein, da TControl keine Prozedur "MeineProzedur" besitzt, die bei der public Prozedur "Irgendwas" verwendet wird.
Da TGraphicControl und TWinControl auch sehr große Unterschiede aufweisen, kann ich für TComponentA und TComponentB keinen gemeinsamen Vorfahren herstellen.
Ich hatte mir überlegt, dass Interfaces irgendwas mit der Problemlösung zu tun haben könnten, da sie die bestehenden VCLs einfach mit "MeineProzedur" erweitern könnten. Das Problem ist hier jedoch, dass ich ja nicht nur um Methoden erweitere, sondern die VCLs jeweils divers bearbeite. Ich bin daher auch zu keiner Lösung gekommen.
Weiß jemand eine Lösung?
Gruß
blackdrake