Home

Page 355
Page 355
background image

348

Глава 7

function GetApplication: TApplication; virtual;

 abstract;

procedure

 string;

Proc: TNotifyEvent); virtual; stdcall; abstract;

procedure

 String); virtual; stdcall; abstract;

end;

 окно

Добавить э

Спрятать окно

  7 . 1 1 . Форма дополнительного модуля, которая будет вызываться

из главной программы

Это объявление похоже на то, что мы писали в основной программе. Един-
ственная разница заключается в том, что после каждого имени метода стоит

слово abstract. Это слово указывает на то, что метод не будет описан

в этом модуле и является абстрактным. Это необходимо, потому что реали-

зация всего объекта находится в основной программе, а здесь мы делаем

только описание, чтобы можно было пользоваться возможностями интер-
фейса.

В разделе

 нужно объявить переменную

 в которой будет

сохраняться указатель на объект взаимодействия между модулями. Эту пе-
ременную мы уже использовали в процедуре

 а здесь добавляем

ее описание:

 TForml;

Demointerface:

Теперь создадим обработчики события Onclick для всех кнопок нашей
формы. Для кнопки Показать диалоговое окно пишем следующий код:
procedure

begin

end;

Здесь мы всего лишь отображаем стандартное окно сообщений с надписью

"Привет!".


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.