Klasse soll Setup Form bekommen --> überkreuzende Bezüge

[himitsu]

man kann auch ganz böse sein

Delphi-Quellcode:

procedure TMyClass.Setup;
begin
  with TSetupForm.Create(self) do
    try
      MyObject := self;
      ShowModal;
    finally
      Free;
    end;
end;