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

Модератор: Модераторы

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

Сообщение Nastasya » 23.04.2018 16:05:24

Помогите с кодом.Суть в следующем,мне нужно сделать поле 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;
Nastasya
новенький
 
Сообщения: 10
Зарегистрирован: 05.04.2018 09:46:09

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

Сообщение Vadim » 23.04.2018 16:19:20

Для начала Вам нужно определиться с событием, которое однозначно говорит о том, что ввод числа в Edit закончен. По этому событию Label и должно становиться вновь видимым.
Vadim
долгожитель
 
Сообщения: 2979
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск

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

Сообщение Nastasya » 23.04.2018 16:55:30

Vadim После нажатия на Enter манипуляции с полем Edit заканчиваются,после должен снова стать активным Label.
Nastasya
новенький
 
Сообщения: 10
Зарегистрирован: 05.04.2018 09:46:09

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

Сообщение pupsik » 23.04.2018 21:54:48

Код: Выделить всё
      if Edit1.Text = '1-1000' then
      Label4.Visible := True;


И чё это такое??? :shock:
pupsik
энтузиаст
 
Сообщения: 1129
Зарегистрирован: 20.08.2014 16:20:13

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

Сообщение Nastasya » 24.04.2018 06:03:19

pupsik Это была попытка написать код.Верю,выглядит очень глуто.
Nastasya
новенький
 
Сообщения: 10
Зарегистрирован: 05.04.2018 09:46:09

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

Сообщение Vadim » 24.04.2018 06:22:30

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


В таком случае:
Код: Выделить всё
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  If Key = #13 Then
    label4.Visible:=True;
end;
Vadim
долгожитель
 
Сообщения: 2979
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск

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

Сообщение Nastasya » 24.04.2018 06:48:22

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

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

Добавлено спустя 2 минуты 33 секунды:
Все я нашла ошибку,все работает)Все спасибо большое за помощь))
Nastasya
новенький
 
Сообщения: 10
Зарегистрирован: 05.04.2018 09:46:09

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

Сообщение Vadim » 24.04.2018 07:08:21

Nastasya писал(а):Lazarus ругается

Так Вы бы сразу текст ошибки и писали. А то у меня, к примеру, это рабочий код. Как без текста ошибки определить, в чём проблема?
Это Вам на будущее, чтобы не писали "ругается", а потом таинственно молчали... ;-)
Vadim
долгожитель
 
Сообщения: 2979
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск

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

Сообщение Nastasya » 24.04.2018 12:48:23

Vadim Хорошо,спасибо)
Nastasya
новенький
 
Сообщения: 10
Зарегистрирован: 05.04.2018 09:46:09


Вернуться в Помощь за вознаграждение

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0

Рейтинг@Mail.ru
cron