ShowModal verschachteln?

[Duke_2004]

So würd ichs machen...

Delphi-Quellcode:

procedure TModalForm.HinzufuegenClick(sender: TObject); 
begin 
  HinzufuegenFormular := THinzufuegenFormular.Create( self);
  
  try
    case HinzufuegenFormular.ShowModal of
      mrok:{tu was};
      mrcancel:{tu nix};
    end;
  finally
    HinzuFuegenFormular.Free;
  end;
end;