Значит создаю docked форму (FormMain). Все как в документации.
Кладу на форму компонент ScaXVBForm (при подключенном ScaXVBProxies).
Далее прописываю обработчики:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
-- на форме единственная кнопка, по которой форма закрывается
Private Sub scaXVBButton1_OnScaClick()
ScaXVBForm1.DelayUnload
End Sub
-- инициализация формы
Private Sub ScaXVBForm1_OnScaReady()
On Error GoTo Catch_Error
ScaXVBForm1.Caption = "Лицевой счет покупателя"
scaXVBButton1.Caption = "Close"
Exit Sub
Catch_Error:
ThisProcess.ScaMessageBox "Error initialising a custom form", Err.Description, vbOKOnly
End Sub
При запуске проекта:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Public Sub MacroClient()
--GenerateReport
--FormData.Show
Dim ruRootDock As IScaXVBSizingRule
Dim ruRootVert As IScaXVBSizingRule
Set ruRootDock = MainForm.ScaXVBForm1.CreateDockDownRule(Nothing)
Set ruRootVert = MainForm.ScaXVBForm1.CreateVerticalSizingRule(Nothing)
-- Mark form as action-level one
MainForm.ScaXVBForm1.MarkFormAsActionLevel True
MainForm.ScaXVBForm1.Connect ThisProcess, scaXVBDockedForm
MainForm.ScaXVBForm1.Show
Set ruRootDock = Nothing
Set ruRootVert = Nothing
End Sub
При запуске проекта все хорошо: появляется форма, по кнопке - выгружается.
Но при попытке добавить на форму некоторые компоненты (ScaXVBText, ScaXVBDateTime, ScaXVBGrid) метод MainForm.ScaXVBForm1.Connect ThisProcess, scaXVBDockedForm выдает ошибку:
Method 'Connect' of object 'IScaXVBForm failed'
Причем ошибка выдается с одними компонентами, и не выдается с другими (напр. ScaXVBLabel, ScaXVBComboBox).
Помогите побороть, пожалуйста!
