Не работает выделение объектов

Не работает выделение объектов, Не работает выделение объектов

Сергей Викторович Пользователь Сообщений: 1020 Регистрация: 27.03.2014	#11 21.03.2019 16:51:37 Да, согласен, код не правильно написан. Просьба, написать как правильно записать код?

Денис Вицко Администратор Сообщений: 1413 Регистрация: 10.06.2008	#12 21.03.2019 17:32:23 Пример того, как должен создаваться объект класса, я Вам уже привел в сообщении выше. Для того, чтобы он работал, изобретение новых классов TMapSelect (своих собственных) надо убрать.

Сергей Викторович Пользователь Сообщений: 1020 Регистрация: 27.03.2014	#13 21.03.2019 17:48:24 Да, так работает отлично! Большое спасибо.

Dmitry Stasev

Пользователь

Сообщений: 80 Регистрация: 25.07.2012

#14

21.03.2019 18:38:52

Цитата
Сергей Викторович написал: Просьба, написать как правильно записать код?

А что Вы конкретно хотите?
Если просто выделять какой-то ОДИН объект, то можно все гораздо проще делать

1. Бросаете на форму

Код
MapFind1: TMapFind; MapObj1: TMapObj;

2. Связываете в инспекторе объектов со своим MV и между собой
3. Установите MapObj1.Style := OS_SELECT

4. Теперь для выделения объекта, достаточно его указать (найти)

Код
if MapFind1.MapObj.SeekObject(MV.MapName, StrToInt(edit1.Text) ) = 1 then MapFind1.MapObj.Center;

Причем у MapFind свой (автосозданный) TMapSelect
Можете туда добавлять свои условия/объекты

Код

 MapFind2.Active := False;
  MapFind2.MapSelect.ClearSampleAll;
  MapFind2.MapSelect.SelectSample(true, MV.MapName, StrToInt(edit2.Text));
  MapFind2.Active := True;

  if MapFind2.MapObj.Key > 0 then
    MapFind2.MapObj.Center;

и никак он не должен мешать Вашим операциям с видимостью слоев

Код
MV.Selecting := true; MV.ViewSelect.Layers[-1] := true; MV.ViewSelect.Layers[14] := false; //

Читают тему (гостей: 1)