Получить гл. окно от дочернего.

[Человек_Борща]

Доброго времени суток!

Моя программа "встраивает" моё окно, в окно другой программы.
Банально перерисовывает его в нужных координатах и делает StayOnTop если окно активно.

Проблема:
Если я выбираю чужое окно(не элемент чужого окна), то все нормально. Моё окно переходит в FormStyle:=fsNormal.
А если я выбираю элемент в чужом окне, то этого не происходит.

В итоге глюк:
Программа куда я рисую своё окно - прячется, мой аддон - не прячется(fsStayOnTop) и перекрывает окно в котором юзер работает(выбрав в нем элемент( не само окно), и передав фокус).

Пробовал использовать и GetParent, и GetWindow с флагом GL_OWNER - не работает.

  hW := FindWindow('TChatClient', nil);
  if (hW <> 0) then
  begin
    hFor := GetForegroundWindow;
    if (hFor = hW) or (GetParent(hFor) = hW) or (GetWindow(hFor, GW_OWNER) = hW)
    then
      FormStyle := fsStayOnTop
    else
      FormStyle := fsNormal;

Суть в том, чтобы моё окно работало, когда пользователь работает с программой, к которой оно прицеплено(включая все дочерние окна от этой программы), во всех остальных случаях, моё окно прячется.

[Stilet]

Навскидку: Таймер (или доппоток), проверяющий активность твоего окна. Если неактивно (т.е. фокус не принадлежит ни одному из твоих контролов - прятаться.

[Человек_Борща]

Stilet, не в этом суть.
Моё окно должно рисоваться когда активно окно(или дочерние окна), с которым связано мое, и моё окно становиться в FormStyle:=fsStayOnTop. В любом другом случае:
fsNormal.


Даже в случае с дочерними окнами, окна, к которому моё привязано я не могу отследить привязку, т.е. с таким кодом:

  hW := FindWindow('TfChatClient', nil);
  if (hW <> 0) then
  begin
    hFor := GetForegroundWindow;
    if (hFor = hW) or (GetParent(hFor) = hW) or (GetWindow(hFor, GW_OWNER) = hW) or
      (GetWindow(hFor, GW_HWNDFIRST) = hW) then
      FormStyle := fsStayOnTop
    else
      FormStyle := fsNormal;

При некоторых дочерних окнах моё окошко прячется.
А при таком раскладе все ок:

    RealGetWindowClass(hFor, @sName, Length(sName));
    if (hFor = hW) or (sName = 'TfSendMessages') or (sName = 'TfForum') or
      (sName = 'TfOptions') or (sName = 'TfChannels') or (sName = 'TfUsersStat') or
      (sName = 'TfChannelSettings') or (sName = 'TfIgnore') then
      FormStyle := fsStayOnTop
    else
      FormStyle := fsNormal;

Но не катит, окон много и есть динамические.

[Stilet]

Ух... Если не секрет в чем смысл задачи?
А то я как-то не соображу четко что нужно то...

[Человек_Борща]

Ух... Если не секрет в чем смысл задачи?
А то я как-то не соображу четко что нужно то...

Есть программа чата. Разработчик чата не предусмотрел написания дополнений. Потому я написал отдельное приложение которое встраивается в этот чат и всегда на виду, когда чат активен.

Если юзер работает в окне чата и всех производных окнах этого же чата, то моё окно так же рисуется. Как только окно чата исчезает, моё так же на это реагирует.

Другое дело, когда окно чата не в фокусе и не скрыто.
Для этого использую GetForegroundWindow, и делаю сравнение, если текущее окно отличается от окна чата, то моё окно перестает перекрывать все окна.
Вот с эти и проблема.

Если переключаться на чужое окно(именно само окно а не какие-то кнопки и т.п. внутри), то:

if (hFor = hW) then
FormStyle := fsStayOnTop
else
FormStyle := fsNormal;

работает.

А если переключится в чужое окно, кликнув на кнопки и т.п. но не на само окно, то моя форма остаётся в fsStayOnTop, но окно того же чата уходит на задний план. И моё окошко мешает пользователю.

Этот же баг характерен и для окон самого чата.

Чем это лечить?

[Stilet]

Ага, терь еще ону айдею толкну: GetForegroundWindow() даст активное окно. Если это не главное окно чата, то в цикле можно посредством GetParent() получать родителей по иерархии, найдя главное окно чата, и определив его видимость и принадлежность активного окна этому чату.

  hW := FindWindow('TfChatClient', nil);
  if (hW <> 0) then
  begin
    hFor := GetForegroundWindow;
    b:=false;
    repeat
     hFor:=GetParent(hFor);
     b:=hFor=hW;
    until b; 

    if b then
      FormStyle := fsStayOnTop
    else
      FormStyle := fsNormal;

Надеюсь на сей раз я точно понял что нужно

[Человек_Борща]

Неа, не сработало, ПО виснет намертво.
Таймер стоит на 200 мс, чтобы четко реагировать на действия юзера ну и перекрывать скин чата.

Демонстрация глюка: http://youtu.be/Zk1qIyJs8Sg
Когда я, из окна чата, переключаюсь на чужое окно - то все нормально.
Когда я, из окна чата, переключаюсь в чужое окно(что-то внутри) - то происходит глюк.

[Luuzuk]

А GetForegroundWindow что возвращает в такие моменты?

[Stilet]

b:=(hFor=hW) or (hFor=0);
    until b; 

    if b and IsWindowVisible(hFor)then
      FormStyle := fsStayOnTop
    else
      FormStyle := fsNormal;

не?

[Человек_Борща]

не?

Так тоже не заработало. Моё окно перестало рисоваться вообще и не показывается вовсе.

А GetForegroundWindow что возвращает в такие моменты?

Окно в котором юзер работает.


Что странно, такой код:

    hFor := GetForegroundWindow;

    if (hFor = hW) or (GetParent(hFor) = hW) then
      FormStyle := fsStayOnTop
    else
      FormStyle := fsNormal;

Успешно должен работать хотя бы для самого окна чата, т.е. для гл. окна и всех дочерних моё окно будет видимым, в остальных случаях моё окно видимым не будет. Но и он не работает. Хотя тот же Spy++ показывает, что parentWindow = гл. окну чата.