• Registered: 2015-06-07
  • Posts: 16

Topic: Пока не заполнены поля кнопка Добавить не активна. Как?

Друзья, есть форма, на ней три поля (комбобокс и два текстовых) и кнопка Добавить. Нужно деактивировать кнопку Добавить, пока не будет данных во всех полях.
Как это реализовать скриптом соображу, не могу понять только на каком компоненте (для какого компонента) использовать?
Спасибо.

  • Registered: 2014-08-02
  • Posts: 954

Re: Пока не заполнены поля кнопка Добавить не активна. Как?

Hello baston

something like this

procedure Form1.Edit1Change(Sender: TObject);
begin
  Button1.Enabled := Edit1.Text <> '';
end;

If many Edit are empty

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Button1.Enabled := (Edit1.Text <> '') and (Edit2.Text <> '');
end;

Hope this helps you

JB

  • Registered: 2015-06-07
  • Posts: 16

Re: Пока не заполнены поля кнопка Добавить не активна. Как?

jean.brezhonek wrote:

Hello baston

jean.brezhonek, thank you very much.
I was probably wrong.
Я похоже поторопился утверждать,что соображу, как это реализовать в скрипте.
Я прикладываю тестовый проект, в которой кнопка Добавить заведомо неактивна, поскольку текстовое поле и комбобоксы не имеют значений. Нужно активировать кнопку только тогда, когда значения будут во всех полях и комбобоксах.
Прошу помощи в скрипте активации кнопки и очищения полей после нажатия кнопки. Эти процедуры прописаны в скрипте, но не работают (мало знаний у меня пока).
Спасибо.

Post's attachments

Attachment icon disableBtn.zip 5.4 kb, 361 downloads since 2018-02-23 

  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,763

Re: Пока не заполнены поля кнопка Добавить не активна. Как?

Здравствуйте Baston, Bonsoir Jean,
Попробуйте это так.
надеюсь, это поможет.
Regards,
Derek.

Post's attachments

Attachment icon disableBtn fixed.zip 339.04 kb, 371 downloads since 2018-02-23 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Пока не заполнены поля кнопка Добавить не активна. Как?

baston wrote:

Друзья, есть форма, на ней три поля (комбобокс и два текстовых) и кнопка Добавить. Нужно деактивировать кнопку Добавить, пока не будет данных во всех полях.
Как это реализовать скриптом соображу, не могу понять только на каком компоненте (для какого компонента) использовать?
Спасибо.

Проще сделать поля в БД обязательными для заполнения, таким образом когда пользователь не заполнит поле, получит сообщение о необходимости его заполнения, а до тех пор запись не будет сохранена.

Dmitry.
  • Registered: 2015-06-07
  • Posts: 16

Re: Пока не заполнены поля кнопка Добавить не активна. Как?

Derek, thanks.
Дмитрий, действительно, проще, спасибо.