Главная страница
    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.059 c
15-1185042427
koha
2007-07-21 22:27
2007.08.19
Странное письмо получил


15-1185125141
Sdubaruhnul
2007-07-22 21:25
2007.08.19
Москвичи или это я гоню?


15-1184881177
Германн
2007-07-20 01:39
2007.08.19
Из СИ в Паскаль


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


15-1185163157
Voproshay
2007-07-23 07:59
2007.08.19
Посоветуйте как лучше сделать. XML





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский