ВУЗ:
Составители:
Рубрика:
14: { Private declarations }
15: public
16: { Public declarations }
17: end;
18:
19: var
20: Form1: TForm1;
21:
22: implementation
23:
24: {$R *.DFM}
25:
26: procedure TForm1.CloseBtnClick(Sender: TObject);
27: begin
28: MessageDlg('Close form',mtInformation,[mbOK],0);
29: Close;
30: end;
31:
32: end.
______________________________________________________________
Листинг 2. Исходный текст для модуля UBUTTON.PAS.
Строки с 5 по 7 перечисляют имена модулей, используемых модулем Ubutton.
Строки с 9 по 17 определяют класс TForm1, который поддерживает форму. Строка 19
определяет экспортируемую переменную Form1, имеющую тип TForm1. Часть
реализации начинается на строке 22. Эта часть определяет процедуру
TForm1.CloseBtnClick, которая отвечает за реакцию на нажатие мыши на графической
кнопке. Строки 28 и 29 - Вами написанные строки. Оператор в строке 28 выводит на
дисплей диалоговое окно сообщения. Оператор Close в строке 29 закрывает форму.
Delphi сама сгенерировала все операторы в листинге 2, кроме тех, что находятся
в строках 28 и 29. Как Delphi “придумала” имя процедуры в строке 26 ? Ответ
находится в объявлении класса TForm1 в строках с 10 по17. Строка 12 объявляет
процедуру CloseBtnClick. Это имя составлено
из имени кнопки CloseBtn и имени
события Click. Определение процедуры в строке 26 использует имя класса TForm1, к
которому относится процедура, затем следует точка и имя процедуры. Этот синтаксис
сообщает компилятору, что процедура CloseBtnClick принадлежит классу TForm1.
2.3 Программы и модули
Каждое приложение Паскаля имеет одну и только одну основную часть
программы. Основная программа может
использовать экспортируемые части одного
или большего количества модулей. В свою очередь эти модули могут использовать
экспортируемые части других модулей. Таким образом, приложение может быть
сделано из иерархической последовательности независимых модулей низкого,
среднего, высокого уровня и основной части программы.
2.4 Программы и проекты Delphi
Страницы
- « первая
- ‹ предыдущая
- …
- 7
- 8
- 9
- 10
- 11
- …
- следующая ›
- последняя »