Создание проекта и макета формы
Запустите 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);ifk<>0thenbeginApplication.MessageBox( 'Первый операнд должен быть числом!', 'OpenError',MB_OKCANCEL+MB_DEFBUTTON1);exitend;
Добавьте далее операторы аналогичной обработки текста из поля ввода Edit2в числоr2, а если в поле не число, то выдачи сообщения об ошибке и выход из обработчика.
Добавьте далее операторы r3:=r1+r2; //вычисление суммыs3:=FloatToStr(r3); //преобразование числа в строкуk:=Pos(',',s3); //проверка, используется ли разделительзапятаямеждуifk>0thenbegin//целой и дробной частями числа, и замена ее наточку.Delete(s3,k,1);Insert('.',s3,k);end;Edit3.Text:=s3; //запись результата в поле вводаEdit3
Проверьте работу программы, используя только клавиатуру (перемещая фокус между УЭ-тами можно выполнять клавишами Tab и Shift+Tab).