Лабораторный практикум
Рис. 19. Удаление текста в Edit1.Text ПРИМЕЧАНИЕ
жүктеу/скачать 2,64 Mb.
|
Delphi задачи
диплом 20, диплом 20, диплом 20, Абай өлеңі, азия, Ақыл ой жан қуаты, Тест cұрақтары ББ IT қолдану Студентке, кіріспе практика, кіріспе практика, кіріспе практика, кіріспе практика, кіріспе практика, кіріспе практика, кіріспе практика, Резюме
| Рис. 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. Достарыңызбен бөлісу:
|