Сообщество IT-специалистов
Ответы на любые вопросы об IT
Профессиональное развитие в IT
Удаленная работа для IT-специалистов
type TFormName = class(TForm) procedure OnBeforePopup(...); end; implementation procedure TFormName.OnBeforePopup(...); begin // Something end; ... web.OnBeforePopup := OnBeforePopup;
