Dialog ausblenden

[Cicaro]

Kannst auch folgendes machen:
Erstelle dein Hauptformular und ein untergeordnetes LoginFormular oder LoginDialog.
Diesen Code hinzufügen

Delphi-Quellcode:

type
  TLoginDialog = class(TForm)
    ...    
  public
    Kennung,Passwort:String;
    function Execute:Boolean;
  end;

var
  MyLoginDialog:TLoginDialog;

function TLoginDialog.Execute:Boolean;
begin
  ShowModal;
  Result:=(Kennung = "Cicaro") and (Passwort = "HättetIhrWohlGern");
end;

// Unit-Wechsel

procedure TForm1.FormShow(Sender:TObject);
begin
  if not MyLoginDialog.Execute then Application.Terminate();
  ...
end;

und fertig.
Das LoginDialog lässt sich auch in anderen Anwendungen verwenden.