Я динамически создавал множество объектов в прошлое без проблем, но теперь я хочу обновить старый проект и получаю ошибку, которую не могу исправить.
Я пытаюсь создать TCppWebBrowser динамически (с использованием IDE работает отлично).
Мой код в основном такой:
Код: Выделить всё
void __fastcall TFormAdmin::CppWebBrowser1DocumentComplete(TObject *Sender, LPDISPATCH pDisp,
Variant *URL)
{
//Here the event code
}
Код: Выделить всё
TCppWebBrowser *CppWebBrowser1;
CppWebBrowser1=new TCppWebBrowser(this);
CppWebBrowser1->TOleControl::Parent = this;
CppWebBrowser1->OnDocumentComplete = CppWebBrowser1DocumentComplete;
Код: Выделить всё
CppWebBrowser1->OnDocumentComplete = CppWebBrowser1DocumentComplete;
Когда я использую этот код с помощью IDE (создание и назначение объекта и событие во время разработки), он работает отлично.
Прототип функции:
Код: Выделить всё
typedef void __fastcall (__closure * TCppWebBrowserDocumentComplete)(System::TObject * Sender,LPDISPATCH pDisp,VARIANT* URL);
Я не знаю, что делать. Я не понимаю, почему это работает во время разработки, но не программно.
Подробнее здесь: https://stackoverflow.com/questions/787 ... -tcppwebbr
Мобильная версия