Информатика. Программирование в Delphi
          
        
        
          
            100
          
        
        
          Рис. 6.4
        
        
          6. Добавим на форму компонент
        
        
          
            Button
          
        
        
          и компонент
        
        
          
            Label
          
        
        
          (рис. 6.7).
        
        
          7. Изменим заголовок у компонента
        
        
          
            Button1
          
        
        
          на
        
        
          
            Вычислить
          
        
        
          , а у компо-
        
        
          нента
        
        
          
            Label9
          
        
        
          – на пустую строку (рис. 6.8).
        
        
          8. Теперь сделаем так, чтобы в полях
        
        
          
            Количество
          
        
        
          можно было ввести
        
        
          только целое число, а в полях
        
        
          
            Цена
          
        
        
          только вещественное. Обработка нажатий
        
        
          клавиш клавиатуры (событие
        
        
          
            OnKeyPress
          
        
        
          ) будет происходить в одной проце-
        
        
          дуре
        
        
          
            EditKeyPress
          
        
        
          для всех полей
        
        
          
            Edit
          
        
        
          . Выберем в инспекторе объектов
        
        
          
            Edit1
          
        
        
          .
        
        
          На вкладке
        
        
          
            Events
          
        
        
          найдем событие
        
        
          
            OnKeyPress
          
        
        
          и в правое поле введем назва-
        
        
          ние процедуры
        
        
          
            EditKeyPress
          
        
        
          , затем нажмем
        
        
          
            Enter
          
        
        
          (рис. 6.9).
        
        
          Рис. 6.5