Создание проекта и макета формы
Запустите Delphi 6. При этом автоматически будет создана форма с именем Form1. Если Delphi 6 уже запущена и использовалась для создания другой программы, то следует ввести команду File\New\Application.
Сохраните программу в новом подкаталоге Программа 1 рабочего каталога командой
File\Save
All (Delphi
6 последовательно предложит сохранить
программу в файлах Project1.dpr
и Unit1.pas).
Не меняйте эти имена. В дальнейшем, если
Delphi 6 открывается
для загрузки программы на редактирование,
выбирайте файл Project1.dpr
или, после открытия Delphi
6, используйте команду File\Open
Project… для этого
файла. В процессе работы не забывайте
периодически сохранять файлы программы
щелчком на кнопке
панели инструментов Standard.Щелчком активизируйте окно формы, в диалоге (в окне диалога) Инспектора объектов (Object Inspector) на вкладке Properties щелкните на поле Caption и введите заголовок формы Задание 1.
Измените размеры формы мышкой или заданием значений в свойствах Height и Width.
Разместите на форме поле ввода Edit1 следующим образом: щелкните на кнопке Edit панели инструментов Component Palette\ щелкните на форме в том месте, где должен располагаться левый верхний угол этого УЭ\. Измените, при необходимости, размеры и положение УЭ мышкой или заданием значений свойствам Height, Width, Left и Top.
Аналогично разместите на форме (соблюдая порядок) поля ввода Edit2 и Edit3, затем командные кнопки Button1 и Button2, а также метки Label1, Label2 и Label3, используя кнопку Button, а также кнопку Label соответственно. Для изменения надписей на командных кнопках и метках используйте их свойство Caption.
Запустите программу щелчком на кнопке
Run (F9)
панели инструментов Debug
или вводом команды Run\
Run
и завершите ее работу, закрыв окно
формы.
Программирование
Создайте обработчик события создания формы, который будет задавать символ ‘0’ в качестве значений свойствам Text полей ввода, выполнив следующие действия:
Щелкните на форме и затем сделайте двойной щелчок на строке события OnCreate на вкладке Events в диалоге Object Inspector. В результате Delphi 6 добавит в класс TForm1 формы заголовок нового метода procedure FormCreate(Sender: TObject); и в раздел реализации – описание этого метода с пустым телом procedure TForm1.FormCreate(Sender: TObject); begin end; Аналогичные действия для создания обработчика любого события любого УЭ приведут к аналогичным результатам, поэтому в дальнейшем они будут коротко называться ‘создать шаблон обработчика события …’ или ‘добавить пустой метод …’.
В тело обработчика вставьте операторы: Edit1.Text:='0';Edit2.Text:='0';Edit3.Text:='0';
Запустите программу и проверьте результат. Подобным образом проверяйте работу каждого создаваемого обработчика или его части.
Создайте для кнопки Button2 обработчик события OnClick (получающего управление при щелчке мыши на этой кнопке и при нажатии клавиш Enter и пробел, когда кнопка имеет фокус), который будет суммировать числа из полей Edit1 и Edit2 и записывать результат в поле ввода Edit3, выполнив следующие действия:
Создайте шаблон обработчика события OnClick.
Добавьте в его тело операторы преобразования текста из поля ввода Edit1 в число r1, а если в поле не число, то выдачи сообщения об ошибке и выход из обработчика: s1:=Edit1.Text; Val(s1,r1,k); if k<>0 then begin Application.MessageBox( 'Первый операнд должен быть числом!', 'Open Error', MB_OKCANCEL + MB_DEFBUTTON1); exit end;
Добавьте далее операторы аналогичной обработки текста из поля ввода Edit2 в число r2, а если в поле не число, то выдачи сообщения об ошибке и выход из обработчика.
Добавьте далее операторы r3:=r1+r2; //вычисление суммы s3:=FloatToStr(r3); //преобразование числа в строку k:=Pos(',',s3); //проверка, используется ли разделитель запятая между if k>0 then begin //целой и дробной частями числа, и замена ее на точку. Delete(s3,k,1); Insert('.',s3,k); end; Edit3.Text:=s3; //запись результата в поле ввода Edit3
Проверьте работу программы, используя только клавиатуру (перемещая фокус между УЭ-тами можно выполнять клавишами Tab и Shift+Tab).