Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 144 стр.

  Шаг 2. Ввод данных. Метод Operand1KeyPress.
   Компонент Edit автоматически осуществляет обработку симво-
лов, которые пользователь набирает в поле ввода. После завершения
ввода строка введенных символов сохраняется в свойстве Text ком-
понента. Однако в ряде случаев необходимо разрешить ввод только
определенных символов и не обрабатывать остальные.
   На примере ввода первого числа рассмотрим, как можно обраба-
тывать событие Нажатие клавиши (OnKeyPress).
   Метод обработки этого события получает, кроме значения пара-
метра Sender(источник вызова метода), еще и код нажатой клавиши –
параметр Key.

  Код метода Operand1KeyPress:
  procedure TFormCalc.Operand1KeyPress(Sender: TObject;
     var Key: Char);
  begin
    case Key of
      '0'..'9', chr(8): ; // можно ввести числа 0..9
                          // и удалить предыдущий
                          // символ ( chr(8) – клавиша Backspace)
      chr(13) : EditOperand2.SetFocus; // Если нажата клавиша
                         // ENTER – курсор в поле второго операнда
    else
      key:=chr(0); // не обрабатывать нажатие других клавиш
    end;
  end;

  Шаг 3. Вычисления.
  Код метода BtnAddClick:
  procedure TFormCalc.BtnAddClick(Sender: TObject);
  begin
     EditResult.Text:= IntToStr(StrToInt(EditOperand1.Text)+
                                StrToInt(EditOperand2.Text));



                               143