6. Методы в Delphi

6.1 Создание методов с помощью визуальных средств

Синтаксический “скелет” метода может быть сгенерирован с помощью визуальных средств. Для этого нужно в Инспекторе Объектов дважды щелкнуть мышкой на пустой строчке напротив названия интересующего Вас события в требуемом компоненте, если эта строчка не пуста, то двойной щелчок на ней просто переместит Вас в окне Редактора Кода в то место, где находится данный метод.

Кратко остановимся на концепции объектно-ориентированного программирования. Определим базовые. Класс- это категория объектов, обладающих одинаковыми свойствами и поведением. При этомобъектпредставляет собой просто экземпляр какого-либо класса. Например, в Delphi тип “форма” (окно) является классом, а переменная этого типа - объектом.Метод - это процедура, которая определена как часть класса и инкапсулирована (содержится) в нем. Методы манипулируют полями и свойствами классов (хотя могут работать и с любыми переменными) и имеют автоматический доступ клюбымполям и методам своего класса. Доступ к полям и методам других классов зависит от уровня “защищенности” этих полей и методов. Методы можно создавать как визуальными средствами, так и путем написания кода вручную.

Задание 5.

Рассмотрим процесс создания программы CONTROL1, которая поможет нам изучить технику написания методов в Delphi.

1. Поместите с помощью мышки компонент Edit(находится на страничке “Standard” Палитры Компонентов) на форму. После этого ваша форма будет иметь вид, показанный на рис. 1. Чтобы создать метод, просто дважды щелкните справа от слова OnDblClick

Рис. 1.События компонента .

2. Теперь перейдите в Object Inspector, выберите страничку “Events” и дважды щелкните в пустой строчке напротив события OnDblClick. После этого в активизировавшемся окне Редактора Вы увидите сгенерированный “скелет” метода Edit1DblClick, являющегося реакцией на событие OnDblClick:

procedure TForm1.Edit1DblClick(Sender: TObject);

begin

end;

Рис. 2. Общий вид формы.

3. После генерации процедуры Вы можете оставить ее имя таким, каким “установил” Delphi, или изменить его на любое другое (для этого просто введите новое имя в указанной выше строке Инспектора Объектов справа от требуемого события и нажмите Enter).

Теперь в окне Редактора Кода введите смысловую часть метода:

procedure TForm1.Edit1DblClick(Sender: TObject);

begin

Edit1.Text:= 'Вы дважды щелкнули в строке редактирования';

end;

4. Сохраните программу.

5. Во время выполнения дважды щелкните на строке редактирования. Текст в этой строке изменится в соответствии с тем, что мы написали в методе Edit1DblClick: см. Рис. 3.

Рис. 3: Содержимое управляющего элемента TEditизменяется после двойного щелчка по нему.

Листинг Программа CONTROL1 демонстрирует, как создавать и использовать методы в Delphi.

program Control1;

uses

Forms,

Main in 'MAIN.PAS' {Form1};

begin

Application.CreateForm(TForm1, Form1);

Application.Run;

end.

Листинг: Головной модуль программы CONTROL1.

unit Main;

Interface

uses

WinTypes, WinProcs,

Classes, Graphics, Controls,

Printers, Menus, Forms, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

procedure Edit1DblClick(Sender: TObject);

end;

var

Form1: TForm1;