1

Здравствуйте. Делаю кнопку неактивной. Необходимо заполнить все поля после чего клавиша станет активной, но условие не срабатывает. Подскажите в чем проблема.

   procedure TForm7.FormKeyPress(Sender: TObject; var Key: Char);
    begin
  if (edit1.Text<>'')and (edit2.Text<>'')and (edit3.Text<>'')and (edit4.Text<>'') and
   (edit5.Text<>'') and (edit6.Text<>'') and (edit7.Text<>'') then
    Form7.Button1.Enabled:=True;
     end;

      end.
3
  • 1
    Вы уверены, что этот код выполняется? для всех ли edit'ов назначен этот обработчик (как я понимаю такая задача решалась)? Поставьте точку останова, проверьте для каждого из edit'ов. 24 июн 2014 в 19:20
  • сейчас проверю
    – Ник_qd
    24 июн 2014 в 19:39
  • спасибо, все работает, сделал для всех эдитов , заработало
    – Ник_qd
    24 июн 2014 в 19:44

1 ответ 1

1

Эта задача должна решаться с помощью TAction

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.