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

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

142
Сохраним проект
ProjectCalc (для первоначального сохранения
проекта выберите в меню
File команду Save Project as….) и перей-
дем к программированию.
9.2.3. Реализация методов
Для завершения разработки приложения Калькулятор необходи-
мо добавить программный код в методы обработчиков событий.
Методы, автоматически добавляемые
Delphi в приложение, перво-
начально имеют следующую структуру (на примере обработчика
события
OnActivate):
procedure TFormCalc.OnCalcActivate(Sender: TObject);
begin
end;
Шаг 1
. Активизация приложения. Метод OnCalcActivate.
При запуске приложения
Калькулятор необходимо:
•
очистить поля ввода и поле результата,
•
знак операции и знак = должны иметь начальное значение?,
•
установить курсор в поле первого операнда для ввода числа.
Код метода OnCalcActivate:
procedure TFormCalc.OnCalcActivate(Sender: TObject);
begin
EditOperand1.Text :='' ; // Свойство Text – пустая строка
EditOperand2.Text :='' ;
EditResult.Text :='' ;
OperatorLabel.Caption:='?';// Свойство Caption – символ ?
ResultLabel.Caption :='?';
EditOperand1.SetFocus; // Установить фокус (курсор)
// в поле первого
// операнда – EditOperand1
end; 
   Сохраним проект ProjectCalc (для первоначального сохранения
проекта выберите в меню File команду Save Project as….) и перей-
дем к программированию.
  9.2.3. Реализация методов
   Для завершения разработки приложения Калькулятор необходи-
мо добавить программный код в методы обработчиков событий.
   Методы, автоматически добавляемые Delphi в приложение, перво-
начально имеют следующую структуру (на примере обработчика
события OnActivate):
  procedure TFormCalc.OnCalcActivate(Sender: TObject);
  begin

  end;

  Шаг 1. Активизация приложения. Метод OnCalcActivate.
  При запуске приложения Калькулятор необходимо:
  • очистить поля ввода и поле результата,
  • знак операции и знак = должны иметь начальное значение?,
  • установить курсор в поле первого операнда для ввода числа.

  Код метода OnCalcActivate:
  procedure TFormCalc.OnCalcActivate(Sender: TObject);
  begin
     EditOperand1.Text :='' ; // Свойство Text – пустая строка
     EditOperand2.Text :='' ;
     EditResult.Text   :='' ;
     OperatorLabel.Caption:='?';// Свойство Caption – символ ?
     ResultLabel.Caption :='?';
     EditOperand1.SetFocus;      // Установить фокус (курсор)
                                  // в поле первого
                                 // операнда – EditOperand1
  end;


                              142

Страницы