objectreferenz austauschen ohne globale variablen!!!!

[Jens Schumann]

Hallo,
ungefähr so

Delphi-Quellcode:

Type

  TMyForm = class(TForm)
  private
    FRefObject : TObject;
  ...
  end; 

procedure TMyForm.CreateRefObject; 
begin
  If Not Assinged(FRefObject) then
    FRefObject:=TOBject.Create;
end;

procedure TMyForm.DoSomething(aRefObject : TObject);
begin
  If Assinged(FRefObject) then
    MachWas
end;

procedure TMyForm.XYZClick(Sender : TObject);
begin
  CreateRefObject;
  DoSomething(FRefObject );
end;