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