Лабораторный практикум
Рис. 19. Удаление текста в Edit1.Text ПРИМЕЧАНИЕ
жүктеу/скачать 2,64 Mb.
|
Delphi задачи
| Рис. 19. Удаление текста в Edit1.Text
ПРИМЕЧАНИЕ При работе с Инспектором объектов можно получить контекстную справку по свойствам или событиям. Для этого следует выделить в окне Инспектора объектов интересующее свойство или событие и нажать клавишу F1, а затем просмотреть в окне Delphi Help справочную информацию. 8. Добавьте на форму три объекта Label, расположите их над объектами Edit1-Edit3 и задайте их свойствам Caption значения «Слагаемое», «Слагаемое» и «Сумма». 9. Нажатием F12 активизируйте окно Редактора кода. Обратите внимание, что в разделе описания программного модуля ИСР были сгенерированы описание формы и размещенных на ней компонентов. type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Button1: TButton; Label2: TLabel; Label3: TLabel; Label4: TLabel; СОВЕТ 10. Сохраните изменения, внесенные в проект, нажатием кнопки Сохранить все (Save All) в стандартной панели инструментов. 11. Откомпилируйте созданный проект командой Проект (Project) ► Компилировать summa (Compile summa) (слово «summa» указывает имя проекта). 12. Запустите программу на выполнение при помощи команды Выполнить (Run) ► Выполнить или нажатием кнопки Выполнить (Run) в панели инструментов или клавиши F9. После этого на экране компьютера появится окно созданной вами формы с компонентами, в которые можно вводить значения. Обратите внимание, что окно формы имеет стандартные атрибуты окна Windows, его можно минимизировать, развернуть на весь экран, изменить его размеры, но приложение не будет выполнять каких-либо вычислений, так как выполняющий вычисления фрагмент программы не был создан. Завершите работу приложения любым из стандартных способов, например, нажатием Alt+F4. 13. Для того чтобы приложение выполняло вычисления при щелчке на кнопке Button1 с изображением символа «=», следует написать код обработки этого события. Для создания кода обработки события следует воспользоваться Инспектором объектов. В окне Инспектора объектов на странице События указаны все события, на которые может реагировать выбранный объект. Страница событий связана с Редактором кода следующим образом: если дважды щелкнуть мышью справа от какого-либо пункта, то соответствующий данному событию код будет автоматически помещен в окно Редактора кода, а окно Редактора кода немедленно получит фокус, и вы сразу же будете иметь возможность отредактировать код обработчика данного события. Например, если требуется выполнить определенные действия при щелчке левой кнопкой мыши по данному объекту, то следует выделить событие OnClick. Рядом с именем этого события откроется окно с раскрывающимся списком. Если в приложении уже были созданы какие-нибудь обработчики событий и при событии OnClick требуется использовать один из них, можно выбрать необходимый обработчик из раскрывающегося списка. Так как в приложении еще нет обработчика событий, требуется написать новый обработчик щелчка на кнопке Buttonl с изображением символа «=». Для этого следует выбрать в окне Инспектора объектов объект Buttonl, затем на странице Событий произвести двойной щелчок на пустом поле списка в событии OnClick. После этого окно Редактора кода немедленно получит фокус. В этом окне в разделе interface находится запись процедуры обработчика события: procedure TForm1.Button1Click(Sender: TQbject); В разделе implementation располагается текст заготовки этой процедуры: procedure TForm1.Button1Click(Sender: TObject); begin end;
Курсор будет находиться в пустой строке между ключевыми словами begin и end. Этот код является заготовкой для обработчика события, которую автоматически создала ИСР Delphi.
var
Так как в приложении для ввода чисел-слагаемых используются окна редактирования Edit1, Edit2, то необходимо при помощи процедуры StrToInt преобразовать строки из окон Edit1, Edit2 в целые числа. Для вывода результата суммирования в окне редактирования Edit3 нужно преобразовать число в строку функцией IntToStr. Поэтому в основное тело процедуры обработки события следует ввести следующий текст: a:=StrToInt(Edit1.text); b:=StrToInt(Edit2.text); c:=a+b; Edit3.text:=IntToStr(c); Целиком процедура обработки события щелчка на кнопке Button1 будет выглядеть следующим образом: procedure TForm1.Button1Click(Sender: TObject); var a,b,c: integer; {2 слагаемых и сумма - целые числа} begin a:=StrToInt(Edit1.text); {преобразование текстовой строки в целое число} b:=StrToInt(Edit2.text); c:=a+b; Edit3.text:=IntToStr(c); {преобразование целого числа в текстовую строку} end; 14. Запустите приложение на выполнение нажатием кнопки Выполнить в панели инструментов. В окне приложения введите значения слагаемых и, нажав кнопку Button1 с надписью «=», запустите процедуру обработки события — вычисление суммы. Окно созданного приложения будет выглядеть следующим образом: жүктеу/скачать 2,64 Mb. Достарыңызбен бөлісу:
|