две формы

[StakanpORTvejna]

Народ,как сделать чтобы при запуске программы открывалось 2 формы,при этом чтобы одна была под другой и не была активна до тех пор,пока в активной не введёшь нужные данные

[Levsha100]

Form2.ShowModal;

А закрытие блокируй...

[lexaltd]

Form1:

procedure TForm1.FormShow(Sender: TObject);
begin
 Form2.Show;
 Form2.FormStyle:=fsStayOnTop;
end;

Form2:

procedure TForm2.Edit1Change(Sender: TObject);
begin
  if Edit1.Text = '123' then
   Form2.FormStyle:=fsNormal;
end;

[vovk]

Сообщение от lexaltd

Form1:

procedure TForm1.FormShow(Sender: TObject);
begin
 Form2.Show;
 Form2.FormStyle:=fsStayOnTop;
end;

Form2:

procedure TForm2.Edit1Change(Sender: TObject);
begin
  if Edit1.Text = '123' then
   Form2.FormStyle:=fsNormal;
end;

А смысл ? ну будет она сверху висеть эта форма, а доступ к 1 форме всё равно остаётся.

Левша правильно сказал ShowModal то есть примерно так

// На 1 форме
procedure TForm1.FormShow(Sender: TObject);
begin
   Form2.ShowModal;
end;

// На 2 форме
procedure TForm2.Button1Click(Sender: TObject);
begin
if Edit1.Text = '123' then
   Form2.ModalResult:=1;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Edit1.Text <> '123' then Application.Terminate;
end;

[beemoto]

вы все тупите!
вот:
в онкрит пропиши:

form1.enabled:=false;

а в обработчик кнопки второй формы пропишы:

if edit1.Text:='test' then
form1.Enabled:=true;