Einige Methoden in mehreren Klassen verwenden?

[Sanchez]

Zitat von Waldteufel:

Was ist, wenn ich TMainClass noch wo anders brauche, wo ich aber von TComboBox ableiten muss?

BTW: Würde ich in einem solchen Fall an einen gemeinsamen Vorfahren delegieren. Du hasts geschafft, dass ich mir doch den Kopf darüber zerbrochen habe

Also:

Delphi-Quellcode:

type TKlasseMitMethoden = class
  protected
    FObjekt: TVorfahrVonDenGewünschtenKlassen;
    procedure MachWasMitFObjekt;
...
  end;

  TKlasseMitComboBox = class(TKlasseMitMethoden)
  public
    constructor Create(_owner : TComponent);
...
  end;

  TKlasseMitIrgendeinemAnderenObjekt = class(TKlasseMitMethoden)
  public
    constructor Create(_owner : TComponent);
...
  end;
...

TKlasseMitComboBox.Create(_owner : TComponent);
begin
  FObjekt := TComboBox.Create(_owner);
end;

TKlasseMitComboBox.Create(_owner : TComponent);
begin
  FObjekt := TIrgendeinAnderesObjekt.Create(_owner);
end;