Per Klasse auf übergeordnete Klasse zugreifen?

[r2c2]

Die Frage scheint sich ja schon geklärt zu haben, trotzdem noch n alternativer Weg:

Delphi-Quellcode:

TMainClass = class(TComponent) 
private 
  FClientSocket: TClientSocket; 
  FServer: TServer; 
  procedure PropCh(<Parameter anpassen>); // Methode, die Socket-Properties anpasst
public 
  constructor Create(owner...);
published 
  Server: TServer read FServer write FServer; 
end;

constructor TMainClass.Create(...);
begin
  inherited...;
  ...
  FServer = TServer.Create;
  FServer.OnPropertyChange = PropCh; // OnPropertyChange in Setter-Metghoden aufrufen; dadurch wird PropCh aufgerufen
end;

procedure ProbCh;
begin
  ... // ClientSocket ändern
end;

mfg

Christian