Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.08.19;
Скачать: CL | DM;

Вниз

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

 
Углук ©   (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;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.041 c
15-1185148150
Kostafey
2007-07-23 03:49
2007.08.19
С днем рождения ! 23 июля


15-1184839221
_Ламер_
2007-07-19 14:00
2007.08.19
Подскажите какие книги по делфи лучше


1-1181499519
имя
2007-06-10 22:18
2007.08.19
RichEdit глюк


2-1185427023
Inearthed
2007-07-26 09:17
2007.08.19
Одинаковая обработка разных событий. Как?


2-1185351496
CODeRUS
2007-07-25 12:18
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский