Damit mein Ziel oder mein Problem bei euch klar wird, habe ich eine Skizze erstellt
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
// else oder error Fenster sind nicht erwünscht
begin
if edit1.text <> edit2.Text
then
begin
Form1.Show;
end;
if (password <> '123') and (edit1.text = edit2.Text) then
begin
Form2.Show;
end;
if (password = '123') and (edit1.text = edit2.Text) then
begin
Form3.Show;
end;
end;
Der Code soll bearbeitet werden, da mansch mal 2 Forms nach dem Klick auf Button1 (Start) aufgerufen werden !!!