Сообщений в теме: 32

[SergeyP]

Шаманство какое-то !
Действительно, ничего криминального не вижу ! (но это пока ! Будем искать !)

PS
Единственно, заметил, что в свойствах объекта нет "Debug Agent".. Хотя это, вроде бы не должно повлиять..
Но все равно можно попробовать активировать его..

[ksena]

В первом заметила ObjectIdentifier, он во втором тоже есть? Я не увидела.

[Rebz]

А если сходить к программистам и попросить их назвать этот объект поуникальней? :)
Можно же захайлайтить (подсветить) и тот и другой объект, чтобы посмотреть где они в интерфейсе и чё обозначают..?

[ksena]

А если сходить к программистам и попросить их назвать этот объект поуникальней? :)

Кстати, не просто попросить, а вообще, правила хорошего тона программирования: называть объекты осмысленно, а не оставлять так, как они были названы автоматом. Найдите кто это сделал и раскажите о своей жизни автоматизаторской )))

[Cyrilka]

Мое решение неудачное, перезакрытие окна может тянуться до бесконечности :(
А как насчет того, что это может быть глюк TC? Невозможно создать объекты с одним именем на одном уровне.
Открыв исходники вижу только одну панель Panel, а TC отображает две.

[ksena]

Мое решение неудачное, перезакрытие окна может тянуться до бесконечности :(
А как насчет того, что это может быть глюк TC? Невозможно создать объекты с одним именем на одном уровне.
Открыв исходники вижу только одну панель Panel, а TC отображает две.

У TC, конечно, всяко бывает, но чтобы он панельки создавал....я сталкивалась со случаями, когда уже закрытые формочки продолжали висеть в памяти TC и новые появлялись с тем же именем, но они индексировались, а в вашем случае...сразу после запуска TC воспроизводится? Может тоже остаточная информация?

[Cyrilka]

У TC, конечно, всяко бывает, но чтобы он панельки создавал....я сталкивалась со случаями, когда уже закрытые формочки продолжали висеть в памяти TC и новые появлялись с тем же именем, но они индексировались, а в вашем случае...сразу после запуска TC воспроизводится? Может тоже остаточная информация?

Уже сто раз все перезапускала, и проект закрывала, в надежде - сейчас создам новый и кошмар пропадет, но нет )))) все как и было
Даже установила все на другой машине!

[ksena]

Уже сто раз все перезапускала, и проект закрывала, в надежде - сейчас создам новый и кошмар пропадет, но нет )))) все как и было
Даже установила все на другой машине!

Тогда чтобы не гадать, можно сделать так: у формы по FindAllChildren найти массив всех дочерних объектов, в этом массиве найти объект с Name "VCLObject('...')", считать у него FullName, через Evaluate преобразовать его в OleVariant и потом уже если он exists - продолжать с ним работу.(это конечно не хорошо, теряем производительность, но должно работать)

[Cyrilka]

Спасибо, попробую.

[ksena]

Тогда чтобы не гадать, можно сделать так: у формы по FindAllChildren найти массив всех дочерних объектов, в этом массиве найти объект с Name "VCLObject('...')", считать у него FullName, через Evaluate преобразовать его в OleVariant и потом уже если он exists - продолжать с ним работу.(это конечно не хорошо, теряем производительность, но должно работать)

Извиняюсь, нужно 2 критерия, еще ChildCount > 0, а то он просто отберет 1й по списку.

[ksena]

Или даже не так, FullName не поможет, нужно по FindAllChildren(как я писала выше) вычислить индекс интересующего объекта, и вернуть его в переменную через Child(индекс).

[Cyrilka]

Сделала так, перебираю Child(i) у нужной формы, чтобы удовлетворял двум условиям ChildCount >0 и ObjectIdentifier = нужному имени.
Всем спасибо!

[Vasiliy]

Столкнулся сейчас с похожей проблемой - в дереве объектов есть несколько одинаковых имен. Может быть одно, может быть два, а может и много больше.
Разработка говорит, что это динамическая генерация интерфейса на лету. Имена совпадают, так как берутся из шаблонов.

Пока решил проблему таким способом - для каждого нового окна заново находим его (как звучит-то)) )

var
  Hndl : OleVariant;//дескриптор
  curWin : OleVariant;  // указатель на текущее окно
begin
  hndl := Win32API.GetForegroundWindow; //получаем дескриптор текущего окна
  curWin := Sys.WindowFromHandle(hndl);//находим само окно для дальнейшей работы