Как сделать чтобы при введении пароля открылась другая форма, а эта закрылась

@АСЯ! · Регистрация: 24.12.2011

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

Здравствуйте! у меня есть код для введения пароля в Edit и при правильном вводе открывается другая форма, но как сделать чтоб Form1 закрылась при открытии другой.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Edit1.PasswordChar := '*';
if key=#13 then {нажат Enter}
if Edit1.Text = '11' then Form6.Show
else
begin
ShowMessage('Неверный пароль');
end;

end;

@antikiler_ · 03.06.2012, 22:39

Если Form1 у тебя главная форма то при закрытии ее, закроется вся программа. Поэтому ее обычно прячут

Delphi

1	Form1.Hide

а точнее

Delphi

if Edit1.Text = '11' then 
begin
 Form1.Hide;
 Form6.Show;
end

@АСЯ! · 03.06.2012, 22:42 **[ТС]**

да точно!) спасибо)

@antikiler_ · 03.06.2012, 22:46

Сообщение от АСЯ!

а куда это написать, скажите пожалуйста!

Ну наверно в твою процедуру

Delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 begin
 Edit1.PasswordChar := '*';
 if key=#13 then {нажат Enter}
 if Edit1.Text = '11' then 
   begin
     Form1.Hide;
     Form6.Show;
   end
 else
  begin
     ShowMessage('Неверный пароль');
  end;
 
 end;

@АСЯ! · 03.06.2012, 22:48 **[ТС]**

да я уже разобралась, еще раз спасибо

@АСЯ! 1 / 1 / 0 Регистрация: 24.12.2011 Сообщений: 34
		1
	Как сделать чтобы при введении пароля открылась другая форма, а эта закрылась 03.06.2012, 22:32. Показов 2631. Ответов 4 Метки нет (Все метки) Здравствуйте! у меня есть код для введения пароля в Edit и при правильном вводе открывается другая форма, но как сделать чтоб Form1 закрылась при открытии другой. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin Edit1.PasswordChar := '*'; if key=#13 then {нажат Enter} if Edit1.Text = '11' then Form6.Show else begin ShowMessage('Неверный пароль'); end; end; 0

@АСЯ! 1 / 1 / 0 Регистрация: 24.12.2011 Сообщений: 34
	03.06.2012, 22:42 [ТС]	3
	да точно!) спасибо) 0

@АСЯ! 1 / 1 / 0 Регистрация: 24.12.2011 Сообщений: 34
	03.06.2012, 22:48 [ТС]	5
	да я уже разобралась, еще раз спасибо 0

Опции темы