Delphi. Как сделать своё самое простое событие?

Хороший пример создания событий есть на форуме. Попробую повторить, по аналогии, на примере загрузки файла в некоторую директорию.

Класс, создающий событие

Пусть у нас есть некоторый класс, внутри которого нужно создать событие. Например, класс формы загрузки файлов. Тогда внутри него мы можем написать следующее. 

Поле события

Процедура запуска события

Публичное свойство

Реализация запуска события

Сам запуск события можно осуществлять в любом месте программы, например при окончании загрузки файла, например так…

Класс, принимающий событие

В классе, принимающем событие, например другая форма, в которой используется форма загрузчика файлов, нам нужно определить процедуру обработки события. То есть, что будет происходить, когда событие будет запущено?

И, соответственно присвоить этот обработчик объекту, в OnCreate или On Show

Как создать событие с параметрами?

Нужно просто определить свой класс, например так

 

 

Добавить комментарий