Скрытие Label.Код.

[Nastasya]

Помогите с кодом.Суть в следующем,мне нужно сделать поле Label скрывающимся.То есть,у меня есть программа после запуска которой нужно,что бы в поле Label появлялось рандомное число(это я сделала),а через 1 сек после показа этого числа оно скрывалось,а активным поле Label становилось после того как человек введет это число в поле Edit.Проблема состоит в том что поле Label скрывается через 1 сек,а назад не появляется.Работаю в lazarus, язык pascal.

Код: Выделить всё

   begin
      Timer2.Enabled := False; // остановить таймер
      Label4.Visible := False;
      if Edit1.Text = '1-1000' then
      Label4.Visible := True;
  end;

[Vadim]

Для начала Вам нужно определиться с событием, которое однозначно говорит о том, что ввод числа в Edit закончен. По этому событию Label и должно становиться вновь видимым.

[Nastasya]

Vadim После нажатия на Enter манипуляции с полем Edit заканчиваются,после должен снова стать активным Label.

[pupsik]

Код: Выделить всё

      if Edit1.Text = '1-1000' then
      Label4.Visible := True;

И чё это такое???

[Nastasya]

pupsik Это была попытка написать код.Верю,выглядит очень глуто.

[Vadim]

После нажатия на Enter манипуляции с полем Edit заканчиваются

В таком случае:

Код: Выделить всё

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  If Key = #13 Then
    label4.Visible:=True;
end; 

[Nastasya]

Vadim Спасибо,попробую.

Добавлено спустя 3 минуты 9 секунд:
Vadim Lazarus ругается.Я уже пробовала так.

Добавлено спустя 2 минуты 33 секунды:
Все я нашла ошибку,все работает)Все спасибо большое за помощь))

[Vadim]

Lazarus ругается

Так Вы бы сразу текст ошибки и писали. А то у меня, к примеру, это рабочий код. Как без текста ошибки определить, в чём проблема?
Это Вам на будущее, чтобы не писали "ругается", а потом таинственно молчали...

[Nastasya]

Vadim Хорошо,спасибо)