parent schliessen

[shmia]

Entweder ruftst du Application.Terminate (Holzhammermethode) auf oder du fragst das ModalResult (eleganter) ab:

Delphi-Quellcode:

procedure TMainForm.FormActivate(...);
var
  frm : TPasswortForm;
  ende : Boolean;
begin
  frm := TPasswortForm.Create(nil);
  try
    // Fomular modal anzeigen - wenn nicht OK-Button gedrückt wurde
    // ist ende = True
    ende := frm.ShowModal <> mrOK;
  finally
    frm.Free;
  end;
  if ende then
    Close;
end;