Mehrfachvererbung in Delphi --> Wie umgehen???

[mkinzler]

TScrollingWinControl

[Christian18]

Zitat von mkinzler:

TScrollingWinControl

Dann habe ich aber nicht mehr die Methode (Procedure) Close. Diese Methode befindet sich in TForm. Und Close verwende ich an ziemlich vielen stellen. Also kann ich es so auch nicht machen.

[mkinzler]

Dann würde ich die (zusätzliche) Funktionalität von TProgramm aufsplitten, die Vereinbarungen als Interface und die Implemnetierung in eine Helperklasse.

Delphi-Quellcode:

TMyForm = class (Tform, IProgramm);
MyForm.helper: TProgrammHelper;

TMyFrame = class( TFrame, IProgramm);
MyFrame.helper: TProgrammHelper;

[Christian18]

Hallo,

ich habe jetzt mal probiert was in den letzten Beitrag geschrieben wurde. Ich bekomme das nicht so wirklich hin. hat jemand vieleicht ein ausführlicheres beispiel für mich???

MFG Christian18

[Elvis]

Zitat von mkinzler:

Dann würde ich die (zusätzliche) Funktionalität von TProgramm aufsplitten, die Vereinbarungen als Interface und die Implemnetierung in eine Helperklasse.

Delphi-Quellcode:

TMyForm = class (Tform, IProgramm);
MyForm.helper: TProgrammHelper;

TMyFrame = class( TFrame, IProgramm);
MyFrame.helper: TProgrammHelper;

Jo, genau so.

Und dank interface delegation kann man das ganze schön an eine Default-Implementierung des interfaces weitereichen:

Delphi-Quellcode:

IProgram = interface
['{1B2FFB63-F505-4D2C-94F5-B7043B9894F8}']
   procedure DoSomething;
end;

TProgram = class(TInterfacedObject, IProgram)
   procedure DoSomething;
end;

Delphi-Quellcode:

. TForm1 = class(TForm, IProgram)
  private
    fProgram : IProgram;
  protected
    property ProgramAggregate : IProgram read fProgram implements IProgram;
  public
    procedure AfterConstruction; override;
    procedure BeforeDestruction; override;
  end;
...
procedure TForm1.AfterConstruction;
begin
  inherited;
  fProgram := TProgram.Create(Self);
end;

procedure TForm1.BeforeDestruction;
begin
  fProgram := nil;
  inherited;
end;

Jetzt kann das Form auch als IProgram benutzt werden, alles was IProgram kann und was von TProgram implementiert wird, funktioniert auch mit deinem Form. Selbst wenn interface und TProgram später erweitert werden.
Auf die Art hast du fast schon Mehrfachvererbung.

[mquadrat]

Wenn die Funktionen, die du brauchst nicht unbedingt von der Superklasse (also TForm bzw. TFrame) abhängen, würde ich die Funktionen einfach in eine extra Klasse packen und die als Singleton implementieren.