Zitat von
Pseudemys Nelsoni:
@Elvis: wie komme ich an den Owner? TPersistent muss man keinen übergeben....welche Klasse sollte ich stattdessen verwenden?
Ich bin zwar nicht Elvis aber kann vielleicht trotzdem helfen.
Du musst doch irgendwo in deiner MainClass dein TServer initialisieren, und das machst Du doch sicherlich etwa so im Constructor deiner MainClass:
Delphi-Quellcode:
constructor TMainClass.Create (AOwner : TComponent) ; override ;
begin
FServer := TServer.Create ;
end ;
Wenn Du jetzt aber den constructor deiner TServer Klasse überlädst, und so definierst:
Delphi-Quellcode:
public
constructor Create (AMainClass : TMainClass) ; overload ;
kannst du in der MainClass so ein Objet erzeugen:
Delphi-Quellcode:
constructor TMainClass.Create (AOwner : TComponent) ; override ;
begin
FServer := TServer.Create (Self) ;
end ;
Diesen Parameter kannst Du nun auswerten und z.B. in einer private property speichern.