Fenster, welches man nur durch eine Sache schließen kann

[himitsu]

Vielleicht noch einen Abbrechenbutton mit einbauen, sonst kommt man dort nie wieder raus, außer das ist so gewollt.

Delphi-Quellcode:

function PasswordForm(const UnlockPassword: string): Boolean;
var
  LForm: TPasswordForm;
begin
  LForm := TPasswordForm.Create(nil);
  try
    //Result := (LForm.ShowModal = mrOK) and (LForm.Password = UnlockPassword);  // nur einmal fragen, ohne Schleife 
    while (LForm.ShowModal = mrOK) and (LForm.Password <> UnlockPassword) do ;
    Result := (LForm.ModalResult = mrOK) and (LForm.Password = UnlockPassword);  // Result := LForm.Password = UnlockPassword;
  finally
    LForm.Free;
  end;
end;