https://theroadtodelphi.com/2011/03/11/ ... component/
но это дает мне ошибку:
- Код: Выделить всё
Identifier not found "DefaultInterface"
в
- Код: Выделить всё
if DefaultInterface.QueryInterface(IOleControl, Control) = 0 then
Control.OnAmbientPropertyChange(DISPID_AMBIENT_USERAGENT); //call the OnAmbientPropertyChange event
Пожалуйста, если вы можете мне помочь, я прилагаю пример проекта.