Showmodal Formular schließen - FEHLER

[Nuclear-Ping]

Die Form darf nicht automatisch erzeugt werden. Und auch nicht with MyIrgendwasForm do sondern with TMyIrgendwasForm.Create (Self) do. Du mußt die Form zu dem Zeitpunkt selbst erstellen.

Schmeiss das ShowModal aus dem OnCreate.

Delphi-Quellcode:

procedure TStammdaten.Kunde_neuClick(Sender: TObject);
begin
  with TStammdaten_dlg.Create (Self) do
    try
      ShowModal;
      case ModalResult of
        mrOK: ...
        mrCancel: ...
      end;
    finally
      Free;
    end;
end;