Есть ActiveX Control, написанный на VB6.
Хочу вставить его на форму Borland C++Builder () без создания bpl и использования библиотеки типов.
следующий код работает (если не ошибся с paste):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
// в объявлении класса формы "f.h"
class F: public TForm
{
//........
Variant m_Object;
HANDLE m_HWND;
};
// в f.cpp
m_Object = Variant::CreateObject("XContrlCreateTest.UserControl1");
m_HWND = (void*)int(m_Object.OlePropertyGet("ControlHWND")); //свойство, которое возвращает HANDLE контрола
::SetParent( m_HWND, pnlControl->Handle); // pnlControl - родительское окно, куда будет положен мой контрол
::SetWindowPos ( m_HWND, 0 , 0 , 0 , pnlControl->Width, pnlControl->Height, SWP_SHOWWINDOW);
// int iStyle = ::GetWindowLong(pnlControl->Handle, GWL_STYLE);
// iStyle |= WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS | WS_BORDER | WS_TABSTOP;
Похожий код и при подключении с VB6, только синтаксис другой.
Контрол создаётся, кладётся на форму и почти работает.
"Почти" - потому, что у контрола :
1. Не работает Tab Stop
2. Не работает OleDrop
3.
Не срабатывают события UserControl_Show и UserControl_Resize .
Особенно важно UserControl_Resize.
Пробовал вызывать
1.
::MoveWindow(m_HWND, 0 , 0 , pnlControl->Width - 20 , pnlControl->Height - 20 , true);
- результат - контрол ресайзится, но обработчик "UserControl_Resize" не вызывается :(
Пожалуйста, помогите советом: как сделать, чтобы это окошко стало работать полноценно?
P.S. В примере также проект для VB
