Parent eines Objektes herausfinden

[Sir Rufo]

Zitat von s.h.a.r.k:

Was ist aber, wenn er keine Instanz von dieser Form hat und die Variable benötigt? Ich finde immer eine Lücke *lach*

u got me
Jetzt mit AutoCreate der Form ... ist zwar auch sinnentleert, aber dann kann was zugewiesen werden

Delphi-Quellcode:

type 
  TConfig = class(TObject) 
    privat 
      // a : String;  Braucht kein Mensch mehr 
      ConfigForm : TConfigForm; 
      function GetInfo : string; 
      procedure SetInfo( Value : string ); 
    public 
      property Info : string read GetInfo write SetInfo; 
  end; 

function TConfig.GetInfo : string; 
  begin 
    if not Assigned( ConfigForm ) then
      ConfigForm := TConfigForm.Create( nil );
    RESULT := ConfigForm.InfoFuerParent; 
  end; 

procedure TConfig.SetInfo( Value : string ); 
  begin 
    if not Assigned( ConfigForm ) then
      ConfigForm := TConfigForm.Create( nil );
    ConfigForm.InfoFuerParent := Value; 
  end;

Eine Form, nur als Variablenspeicher ist auch ganz nett, gelle