PW-abfrage mit Schleife und ohne Button

[Christian Seehase]

Moin Spike,

und was klappt daran nicht?

Ich hab' mal zwei Formulare genommen, auf Form1 (Hauptformular) ein Edit gelegt, auf Form2 einen Button.

Delphi-Quellcode:

// Form1
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text = 'lol' then begin
    Form2.Show;
    self.Hide;
  end;
end;

// Form2
procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.Close;
end;