OleObject: Variant;
Свойство OleObject возвращает объект, помещенный в контейнер MapxBox.
Вся работа с загруженным объектом осуществляется посредством свойств и методов класса Variant.
Для выполнения примера предполагается наличие в репозитории формы, расположенной на ней кнопки "Button1" и компонента MapxBox с наименованием "MapxBox1". В операционной системе установлено приложение MapInfo с настроенным списком карт.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Map, v: Variant;
Begin
Map := MapxBox1.OleObject;
v := Map.GetProperty("GeoSets");
v := v.GetPropertyEx("Item", 1);
v := v.GetProperty("PathName");
Self.Text := v As String;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку в наименование формы будет выведен путь и наименование файла, загруженного в "MapxBox1".
См. также: