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;