Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2007.08.19;
Скачать: [xml.tar.bz2];

Вниз

Скрытие окна не работает   Найти похожие ветки 

 
Углук ©   (2007-06-11 14:24) [0]

Окно должно находить следующее (нижнее) окно ( не потомок),
и, если хэндл этого окна совпадает с неким заданным, скрывать. Иначе  - показывать. Ниже приведен код . Он работает при условии, что вызывающая процедуру форма имеет свойство FormStyle=fsNormal. Но если  FormStyle=fsStayOnTop,то
условие GetNextWindow(GetForeGroundWindow,GW_HWNDNEXT)=Dataform.Handle  не выполняется, несмотря на то, что форма находится в нужном Z-ордере...


 if DataForm.Showing then
  begin
if GetNextWindow(GetForeGroundWindow,GW_HWNDNEXT)<>Dataform.Handle then
     DataForm.Show
       else
      DataForm.Hide;
 end else
 DataForm.Show;

Вопрос: каким образом можно получить хендл нижележащего окна при условии, что вызывающая процедура имеет FormStyle=fsStayOnTop?


 
Углук ©   (2007-06-11 14:27) [1]

В принципе, нужный эффект можно получить и по-другому, но все же полезно знать.


 
Углук ©   (2007-06-11 14:30) [2]

Вопрос отвалился сам собой :) Разобрался :) Ветку можно удалять (модератору)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2007.08.19;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.045 c
2-1185443276
ММК
2007-07-26 13:47
2007.08.19
Картинка


15-1185048919
Kostafey
2007-07-22 00:15
2007.08.19
С днем рождения ! 22 июля


15-1184749301
Коллер
2007-07-18 13:01
2007.08.19
веб 2.0 и доткомы


15-1184921014
Kolan
2007-07-20 12:43
2007.08.19
Однако не появления BDS2006 на TaskBar е сильно виляет на работу.


2-1185278706
vitv
2007-07-24 16:05
2007.08.19
создание компонент





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский