• Registered: 2018-07-13
  • Posts: 160

Topic: Нужна помощь

Добрый день!
Возможно ли установить ограничения по вводу в ячейку (TextBox) числа? Например: на форме 10 полей для ввода цифр. Необходимо сделать отдельную форму (для ввода максимальных значений для тех 10 полей), ввести эти значения. А когда тестируемый будет вводить цифры и цифра будет не из диапозона (от 0 до введенной в исходных данных), то будет выходить сообщение об ошибке.
Заранее всех благодарю!

  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 1,393

Re: Нужна помощь

Простым решением будет обработка события покидания поля Edit с подсказкой к полю и отключением кнопки сохранить

Как-то так

procedure Form1_Edit1_OnExit (Sender: TObject);
begin
  if ValidInt(Form1.Edit1.Text) then
  begin
    if ((StrToInt(Form1.Edit1.Text) < 0) or (StrToInt(Form1.Edit1.Text) > 128)) then
    begin
      ShowHint(Form1.Edit1, 'WRONG VALUE', -1, -1, 5000);
      Form1.ButtonSave.Enabled := False;                      // Disable Save button
    end else Form1.ButtonSave.Enabled := True;                // Enable Save button
  end
  else Showmessage('NOT A NUMBER');
end;