Sleep

@Ден · Регистрация: 05.12.2008

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

Доброго времени суток всем. Только начал изучать Delphi, вот, возник вопрос : есть код

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
 
if Edit1.Text='password' then begin
   Label1.Caption:='Доступ разрешён';
    Sleep(2000);
    Close;
 
   end
 
  else if Edit1.Text<>'password' then begin
  Label1.Caption:='Доступ запрещён';
  mciSendString('Set cdaudio door open wait', nil, 0, handle);
  end;
   end;
 
  procedure TForm1.Button2Click(Sender: TObject);
begin
 Edit1.Clear;
end;
 
end.

Если пароль не верный, всё работает как надо, а когда вводишь верный пароль, Label1.Caption:='Доступ разрешён'; не проходит, сразу идёт Sleep(2000); Close;
т.е. прога висит 2 сек. и закрывается. Подскажите плиз почему Label1.Caption не меняется на "Доступ разрешён"? Я так понимаю проблема в Sleep.. Спасибо.

@Lord_Voodoo · 19.10.2009, 12:12

Ден, поставь Application.ProcessMessages; перед слипом

@Ден · 19.10.2009, 12:22 **[ТС]**

Мда.. теперь всё как надо. Спасибо. Только не смейтесь, а можно в двух словах что за Application.ProcessMessages; такой? Просто не знаю ещё.. Или в гугл ? )

@Lord_Voodoo · 19.10.2009, 12:38

Ден, лучше нажмите f1, там все написано... по сути эта процедура позволяет приложению обработать все сообщения, что накопились в очереди сообщений...

@Ден · 19.10.2009, 12:46 **[ТС]**

Благодарю, будем учить. Не понятным осталось только одно - почему в принципе прога перескочила через Label1.Caption и сразу сработал слип...Будем пробовать..

@Lord_Voodoo · 19.10.2009, 12:50

Ден, просто не произошло отрисовки нового Caption для Label, программа сразу снула, а потом и форма закрылась

Humanoid · 19.10.2009, 13:11

Или можно вместо Application.Processmessages просто обновить Label

Delphi

1	Label1.Refresh;

Думаю, это быстрее получится.

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	19.10.2009, 12:12	2
	Ден, поставь Application.ProcessMessages; перед слипом 0

@Ден 4 / 4 / 0 Регистрация: 05.12.2008 Сообщений: 48
	19.10.2009, 12:22 [ТС]	3
	Мда.. теперь всё как надо. Спасибо. Только не смейтесь, а можно в двух словах что за Application.ProcessMessages; такой? Просто не знаю ещё.. Или в гугл ? ) 0

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	19.10.2009, 12:38	4
	Ден, лучше нажмите f1, там все написано... по сути эта процедура позволяет приложению обработать все сообщения, что накопились в очереди сообщений... 1

@Ден 4 / 4 / 0 Регистрация: 05.12.2008 Сообщений: 48
	19.10.2009, 12:46 [ТС]	5
	Благодарю, будем учить. Не понятным осталось только одно - почему в принципе прога перескочила через Label1.Caption и сразу сработал слип...Будем пробовать.. 0

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	19.10.2009, 12:50	6
	Ден, просто не произошло отрисовки нового Caption для Label, программа сразу снула, а потом и форма закрылась 1

	19.10.2009, 13:11