Цикл презентаций «ООП на Delphi» посвящен объектно – ориентированному программированию с использованием одной из самых распространенных систем быстрой разработки приложений – Delphi Используя данный учебный курс, можно самостоятельно овладеть основами объектно – ориентированного программирования на Delphi. Для расширения Ваших знаний к курсу приложен ряд учебных пособий и справочников по Delphi Цикл содержит 13 презентаций: ООП на Delphi – 1: Знакомство с системой программирования Borland Delphi. Объекты (компоненты) и их свойства и методы ООП на Delphi – 2: Первая программа на Delphi, сохранение и компиляция ООП на Delphi – 3: Программное изменение свойств объектов ООП на Delphi – 4: Условия в Delphi. Создание простого теста ООП на Delphi – 5: Элементы ввода и вывода информации. Обработка исключений ООП на Delphi – 6: Заставка программы и элемент таймер ООП на Delphi – 7: Программируем свою игрушку ООП на Delphi – 8: Меню программы, диалоги ООП на Delphi – 9: Создаем свой текстовый редактор ООП на Delphi – 10: Базы данных на Delphi ООП на Delphi – 11: Калькулятор на Delphi. Обработка исключительных ситуаций ООП на Delphi – 12: Создаем тестирующую систему ООП на Delphi – 13: Графика на Delphi Delphi использует язык программирования Объект Паскаль, поэтому лучше сначала изучить обычный Паскаль и поработать в ТурбоПаскале, а затем и переходить к Delphi – перейти будет очень просто, т.к синтаксис языка остается неизменным. Изучение ООП на Delphi желательно проводить в старших профильных классах – количество часов, отводимое на информатику там вполне достаточно для освоения основ ООП на Delphi

Объектно – ориентированное программирование на DELPHI - Краснополянская школа 1 Домнин Константин Михайлович 2006 год

На этом уроке: Мы научимся программно изменять основные свойства объектов и создавать процедуры обработки событий на основе разбора практических примеров Вопросы: 1. Изменение свойств объектов и (программа «Ты уважаешь информатику?») 2. Создание процедуры обработки событий DELPHI - 3

Объектно – ориентированное программирование на DELPHI Изменение свойств объектов

Изменение свойств объектов На этом уроке мы научимся, как в процессе работы программы изменять свойства объектов, а также создадим некоторые обработчики событий Для начала давайте посмотрим программу, которую мы сейчас создадим. Называется она «Ты уважаешь информатику?» Посмотреть -> Давайте разберем, как и какие свойства объектов мы изменяли в этой программе Форма программы содержит 4 компоненты Label (метка) и 3 кнопки «ДА», «НЕТ» и «ВЫХОД», причем в начале программы видна только одна надпись, а при наведении курсора на кнопку нет она должна перепрыгивать в другое место

Изменение свойств объектов Итак, начнем создание и разбор программы по шагам ШАГ 1 Запускаем Delphi и с помощью инспектора объектов изменяем заголовок формы и выбираем ее цвет

Изменение свойств объектов Итак, начнем создание и разбор программы по шагам ШАГ 2 Помещаем на форму с вкладки Стандартные 4 компонента Label и 3 кнопки (Button) Label1 Label2 Label3 Label4 Button1 Button2 Button3

Изменение свойств объектов ШАГ 3 У компонента Label1 через инспектор объектов меняем свойство Caption (надпись) – «Ты уважаешь информатику ?» Label1

Изменение свойств объектов ШАГ 3 У компонента Label1 через инспектор объектов меняем свойство Caption (надпись) – «Ты уважаешь информатику ?» Раскрываем свойство Font объекта Label1 и подбираем нужный размер и цвет шрифта Label1

Изменение свойств объектов ШАГ 4 Аналогичные операции проделываем с надписями Label2, Label3, Label4. Для того, чтобы изменять свойства например Label2, щелкните по нему кнопкой и в инспекторе объектов открываются его свойства Label2 Label3 Label4

Изменение свойств объектов ШАГ 5 Сейчас установим нужные значения свойства Visible (видимость) у надписей. В момент запуска программы должна быть видна только надпись Label1(ее свойство Visible должно иметь значение True (истинно)), а остальные надписи не видны (у них свойство Visible должно иметь значение False (ложно)) Label2 Label3 Label4 Label1

Изменение свойств объектов ШАГ 5 Сейчас установим нужные значения свойства Visible (видимость) у надписей. В момент запуска программы должна быть видна только надпись Label1(ее свойство Visible должно иметь значение True (истинно)), а остальные надписи не видны (у них свойство Visible должно иметь значение False (ложно)) Label2 Label3 Label4 Label1

Изменение свойств объектов ШАГ 6 А сейчас давайте установим свойства кнопок. Изменим надписи на кнопках следующим образом: На кнопке 1 (Button1) – надпись «ДА», на кнопке 2 – надпись «НЕТ» и на кнопке 3 – надпись «ВЫХОД», затем разместим кнопки как на рисунке Делаем это опять через инспектор объектов Аналогично сделаем надписи на кнопках 2 и 3

Изменение свойств объектов ШАГ 7 В момент запуска программы должны быть видны кнопки «ДА» и «НЕТ», а кнопка «ВЫХОД» не видна, поэтому установим свойство Visible для кнопок таким: Для кнопок 1 и 2 свойство Visible устанавливаем в True, а для кнопки 3 («ВЫХОД») - в False

Изменение свойств объектов ШАГ 8 (необязательный) Вы наверное заметили в правом верхнем углу формы значок Это так называемый манифест XP - элемент, украшающий наше приложение (автоматически кнопочки и другие элементы становятся в стиле Windows XP - более привлекательные Находится он на вкладке Win32 панели компонентов Щелкните по нему левой, а затем щелкните в любом месте формы. Этот элемент является невизуальным, т.е. он существует и что-то делает, но при работе программы на форме он невиден, поэтому помещать его можно на форме где угодно. В Delphi много невидимых компонент (например Таймер), они не видны, но делают свое дело – дальше мы их рассмотрим

Объектно – ориентированное программирование на DELPHI Создание процедуры обработки событий

Изменение свойств объектов ШАГ 9 Итак, мы создали форму, разместили на ней компоненты и установили им нужные свойства, настало время писать код обработки событий Сначала для кнопки «НЕТ» (Button1). Эта кнопка должна «убегать» при попытке наведения на нее курсора с целью нажатия, причем убегать случайным образом Вот здесь мы и используем событие, которое возникает при наведении курсора на компонент – OnMouseMove – при этом координаты (положение кнопки «НЕТ») должно изменяться случайно (но за пределы формы она не должна выскакивать) И еще – сделаем ученику предупреждение, первый раз после 3-х попыток наведения на кнопку «НЕТ», и последнее предупреждение после 6 попыток Щелкнем один раз по кнопке «НЕТ», а затем в инспекторе объектов выберем вкладку СОБЫТИЯ. Далее находим событие OnMouseMove и в правой части делаем двойной щелчок – и мы оказываемся в редакторе исходного кода программы

Изменение свойств объектов ШАГ 10 Delphi автоматически создала процедуру обработки события – наведения курсора на кнопку «НЕТ» В этой процедуре между begin и end мы вставим код Положение кнопки2 от левого края формы будет изменяться случайно от 200 до 450 (вспомните Паскаль) Положение кнопки2 от верхнего края формы будет изменяться случайно от 50 до 300 Таким образом при наведении курсора координата кнопки по горизонтали и вертикали случайно изменится – кнопка перепрыгнет на другое место

Изменение свойств объектов ШАГ 10 Сейчас запрограммируем предупреждения. Для этого нам понадобится счетчик – переменная, значение которой при каждой попытке наведения курсора на кнопку увеличивалось бы на единицу, и когда ее значение превысит 3 – выходит первое предупреждение, а когда 6 - второе Назовем переменную - k. И ее необходимо объявить – описать в интерфейсной части кода модуля: И еще – каждый раз при открытии формы (запуске программы) значение счетчика (k) должно устанавливаться на ноль. Сделаем это так: делаем двойной щелчок по нашей форме, при этом открывается редактор кода и в нем автоматически созданная процедура создания формы OnCreate – впишем туда присваивание k:=0;

Изменение свойств объектов ШАГ 10 А дальше в процедуру Mouse Move для кнопки «НЕТ» дописываем код проверки условия (как в Паскале) При каждом наведении курсора на кнопку прибавляем счетчику единицу

Изменение свойств объектов ШАГ 10 А дальше в процедуру Mouse Move для кнопки «НЕТ» дописываем код проверки условия (как в Паскале) Проверяем условие, и если значение счетчика оказывается больше трех, то делаем надпись «СМОТРИ У МЕНЯ» видимой (значение Visible делаем равным True) – появляется первое предупреждение ученику, который не любит информатику

Изменение свойств объектов ШАГ 10 А дальше в процедуру Mouse Move для кнопки «НЕТ» дописываем код проверки условия (как в Паскале) Проверяем условие, и если значение счетчика оказывается больше шести, то делаем надпись «ДВОЙКУ ПОСТАВЛЮ» тоже видимой (значение Visible делаем равным True) – появляется и второе предупреждение ученику, который не любит информатику Как бы ни пытался ученик очень быстро нажать на кнопку «НЕТ», она все равно ускачет от него, даже если бы он и успел нажать вперед компьютера, то все равно ничего бы не произошло, т.к. процедуру обработки нажатия на кнопку OnClick мы не создали – нажимай сколько угодно

Изменение свойств объектов ШАГ 11 Сейчас создадим процедуру обработки кнопки «ДА» (Button1). Для этого делаем двойной щелчок по кнопке и мы опять в редакторе кода: По нажатию на эту кнопку должна появиться надпись «Спасибо, я так и думал», остальные надписи стать невидимы, кнопки «ДА» и «НЕТ» должны исчезнуть, а кнопка «ВЫХОД» - появиться Делаем видимой надпись «Спасибо, я так и думал» (Label2)

Изменение свойств объектов ШАГ 11 Сейчас создадим процедуру обработки кнопки «ДА» (Button1). Для этого делаем двойной щелчок по кнопке и мы опять в редакторе кода: По нажатию на эту кнопку должна появиться надпись «Спасибо, я так и думал», остальные надписи стать невидимы, кнопки «ДА» и «НЕТ» должны исчезнуть, а кнопка «ВЫХОД» - появиться Делаем невидимыми кнопки «ДА» и «НЕТ»

Изменение свойств объектов ШАГ 11 Сейчас создадим процедуру обработки кнопки «ДА» (Button1). Для этого делаем двойной щелчок по кнопке и мы опять в редакторе кода: По нажатию на эту кнопку должна появиться надпись «Спасибо, я так и думал», остальные надписи стать невидимы, кнопки «ДА» и «НЕТ» должны исчезнуть, а кнопка «ВЫХОД» - появиться Делаем видимой кнопку «ВЫХОД»

Изменение свойств объектов ШАГ 11 Сейчас создадим процедуру обработки кнопки «ДА» (Button1). Для этого делаем двойной щелчок по кнопке и мы опять в редакторе кода: По нажатию на эту кнопку должна появиться надпись «Спасибо, я так и думал», остальные надписи стать невидимы, кнопки «ДА» и «НЕТ» должны исчезнуть, а кнопка «ВЫХОД» - появиться Делаем невидимыми предупреждения ученику

Изменение свойств объектов ШАГ 12 Осталось написать код для кнопки «ВЫХОД» Для этого делаем двойной щелчок по кнопке «ВЫХОД» и в редакторе кода записываем оператор close (закрыть форму) ШАГ 13 Ну вот и все, можно проверить работу программы, но прежде давайте все сохраним (это мы уже умеем: Файл – сохранить все) Сейчас запускаем программу (F9) и проверяем работу (при этом произойдет и компиляция программы – появится EXE – файл в каталоге сохранения) Если возникают ошибки компиляции (компилятор выдает предупреждение о характере ошибки) – посмотрите внимательно код программы. Помните, что если мы забыли, например, точку с запятой (;) – то работать не будет Для проверки к уроку приложены исходники программы (файл проекта и.pas – файл)

Разбираемся с исходным кодом На этом уроке мы научились программно изменять некоторые свойства объектов и создавать процедуры обработки событий на примере создания игровой программы ИТОГИ УРОКА: ООП на Delphi – 4: Мы научимся создавать и проверять условия, пользоваться компонентами Radio Button и Checkbox и составим простейшую тестирующую программу НА СЛЕДУЮЩЕМ УРОКЕ:

Домнин Константин Михайлович E – mail: 2006 год.