Не закрывается Form2

@AB96 · Регистрация: 09.11.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте! У меня возникла ошибка в программе. Мне нужно создать программу для решения определённой задачи. Нужно сделать ТРИ формы: первая - заставка, которая закрывается по таймеру (работает), после этого открывается вторая форма - форма с паролем. И затем уже открывается главная, третья форма, на которой и находится решение задачи. Но... У меня не закрывается вторая форма (Form2). Перепробовал все варианты для решения данной проблемы, но не получается. Помогите, пожалуйста!

Заранее спасибо!

@Puporev · 06.12.2015, 17:08

1 юнит

Delphi

implementation
 
uses Unit2;
 
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form2.Show;
Form1.Hide;
Timer1.Enabled:=false;
end;

2 юнит

Delphi

implementation
 
 uses unit1, Unit3;
 
{$R *.dfm}
 
 
procedure TForm2.Button1Click(Sender: TObject);
var login, pass: string;
begin
Login:='admin';
pass:='3P1';
if (Edit1.Text=Login) and (Edit2.Text=Pass) then
 begin
  Form3.Show;
  Form2.Hide;
 end
else  ShowMessage('Неверный логин или пароль. Повторите ввод. ');
end;

@AB96 · 06.12.2015, 18:26 **[ТС]**

Не помогло.

Добавлено через 11 минут
Всё, помогло. Большое спасибо!!!

@unifikator · 06.12.2015, 18:33

Прилагаю проект на Delphi.

@AB96 1 / 2 / 1 Регистрация: 09.11.2014 Сообщений: 72
	06.12.2015, 18:26 [ТС]	3
	Не помогло. Добавлено через 11 минут Всё, помогло. Большое спасибо!!! 0

	06.12.2015, 18:33