Form2 bei Form1 Oncreate aufrufen !

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit1.text <> edit2.Text then
    begin
      Form1.Show;
    end
  else if (password <> '123') then
    begin
      Form2.Show;
    end
  else
    begin
      Form3.Show;
    end;
end;