Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Всплывающее окно не видно [D7, WinXP]


Vulix ©   (2006-11-06 08:52:00) 

Привет всем.
Ситуация такая. Есть главная форма и есть всплывающая форма, которая просто время от времени показывает различную информацию. Эта форма показывается поверх всех окон.
Проблема в том, что если главная форма свернута в трэй, то всплывающую форму не видно...она сворачивается вместе с главной...
Как бы мне добиться, чтобы всплывающая форма всегда показывалась на экране, не в зависимости от главной.
Всплывающую форму показываю обычным методом Show.


MetalFan   (2006-11-06 22:21:00) [1]

прочитай [11], подумай. у тебя бред написан имхо


Vulix   (2006-11-06 11:20:00) [2]

У меня возвращает значение 65556


Percent   (2006-11-06 10:53:00) [3]

[12] Elen ©   (06.11.06 10:44)

В военное время значение синуса может достигать 4.


Elen   (2006-11-06 10:44:00) [4]


> GetDesktopWindow возвращает 0 во всех версиях Windows

Что-то новенькое. У меня возвращает не 0


MetalFan_pda   (2006-11-06 10:43:00) [5]

Vulix ©  (06.11.06 10:12)  [6]
Ошибка, следует читать
...
k:=k or (NOT WS_EX_APPWINDOW);

тебе флаг надо сбросить? тогда or на and замени


Percent   (2006-11-06 10:37:00) [6]

А в SDK глянуть?

Ну и зачем? Чтобы узнать, что GetDesktopWindow возвращает 0 во всех версиях Windows, включая Vista? И сделать вывод, что, так как 0 не является валидным Handler'ом, то CreateParented(0) - имеет столько же смысла, как и Create(nil)...


Vulix   (2006-11-06 10:25:00) [7]

Спасибо всем.
Вроде бы проблема решилась следующей строчкой
SetWindowLong(popupF.Handle,GWL_EXSTYLE,GetWindowLong(popupF.Handle, GWL_EXSTYLE) or (WS_EX_TOOLWINDOW));


Elen   (2006-11-06 10:25:00) [8]


> А какое значение возвращает GetDesktopWindow?

А в SDK глянуть?


Percent   (2006-11-06 10:16:00) [9]

TForm1.CreateParented(GetDesktopWindow);

А какое значение возвращает GetDesktopWindow?


Vulix   (2006-11-06 10:12:00) [10]

Ошибка, следует читать
...
k:=k or (NOT WS_EX_APPWINDOW);
...


Vulix   (2006-11-06 10:11:00) [11]


> Может поможет Application.ShowMainForm:=false ?


Нет, главная форма тут ни при чем, на панели появляется две кнопки, одна главной формы, а другая принадлежит всплывающей.
Я добился следующего, делаю у всплывающей формы так:

k:=GetWindowLong(popupF.Handle, GWL_EXSTYLE);
k:=k or (WS_EX_APPWINDOW);
SetWindowLong(popupF.Handle,GWL_EXSTYLE,k);
Тогда кнопки на панели не появлятся...но блин, зато форма теряет свои свойства, появляется какая то рамочка вокруг толщиной в наверное 5 пикселей


Elen   (2006-11-06 10:03:00) [12]


> Percent

=TForm1.CreateParented(GetDesktopWindow);

> на панели задач появляется кнопка у формы, а мне этого не
> надо

Может поможет Application.ShowMainForm:=false ?


Vulix   (2006-11-06 09:53:00) [13]

сделал так
...
   procedure CreateParams(VAR Params: TCreateParams); override;
...

procedure TpopupF.CreateParams(VAR Params: TCreateParams);
begin
 Inherited CreateParams(Params);
// Params.ExStyle := Params.ExStyle or (not WS_EX_APPWINDOW);
 Params.WndParent := GetDesktopWindow;
end;

Но теперь другая проблема... на панели задач появляется кнопка у формы, а мне этого не надо


Percent   (2006-11-06 09:50:00) [14]

когда ее создаеш Попробуй ей в парент задать рабочий стол

Parent... TWinControl... рабочий стол... Handle...

*озадаченный блуждающий взгляд*


Elen   (2006-11-06 09:32:00) [15]


> Vulix

когда ее создаеш Попробуй ей в парент задать рабочий стол.


Наверх

Титульная страница Поиск, карта сайта Написать письмо