Главная страница
    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.048 c
2-1184918070
wWwWw
2007-07-20 11:54
2007.08.19
Как отследить нажатие комбинации клавиш?


2-1185443040
ММК
2007-07-26 13:44
2007.08.19
Поворот TImage


15-1185259056
jack128_
2007-07-24 10:37
2007.08.19
Демки


2-1185296308
WFS
2007-07-24 20:58
2007.08.19
Нужно сохранить данные из DBGrida в файл.


2-1184900752
vegarulez
2007-07-20 07:05
2007.08.19
Вопрос: Как привязать процедуру (click) к созданной кнопке?





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