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

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

Активировать форму

Чапаев ©   (2006-07-10 13:36:00) 

В определённый момент приложение показывает форму. При этом кнопка, соответствующая этой форме появляется на панели задач, мигает. Если нажать клавишу на клавиатуре, сообщение о нажатии передаётся рабочему столу. Если нажать кнопку мыши на форме, панель задач скрывается (ну или не скрывается, если автоскрытие не включено ;-) ). Для активации формы при показе используется такой код:

procedure TdlgGetKey.ActivateForm;
var
 R:TRect;
begin
 SetWindowPos(Handle,HWND_TOPMOST,(Screen.Width-Width) div 2,(Screen.Height-Height) div 2,0,0,SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
 SetForegroundWindow(Handle);
 Windows.SetFocus(Handle);
 R.Left:=(Screen.Width-ClientWidth) div 2+5;
 R.Right:=(Screen.Width+ClientWidth) div 2-5;
 R.Top:=(Screen.Height-Height) div 2+GetSystemMetrics(SM_CYCAPTION)+5;
 R.Bottom:=(Screen.Height+Height) div 2-5;
 ClipCursor(@R);
end;

Чего не хватает? :-)

---

Ketmar   (2006-07-11 17:08:00) [1]

ой. до такого способа я не додумался... %-)

---

второе явление Чапаева народу   (2006-07-11 10:37:00) [2]

В принципе, проблема решается вызовом AllocConsole;FreeConsole; после показа формы, но это ж всё равно, что гланды через ухо удалять...

---

второе явление Чапаева народу   (2006-07-11 10:35:00) [3]

> А нужно вызывать SetForegroundWindow? Без нее не работает?

И с ней, и без неё не работает. По крайней мере, не работает так, как мне хотелось бы.


> RTFM: msdn SetForegroundWindow.

Та уже RTFM (перед тем, как вызов указанной функции вставить)... Ну что ж, попытаемся ещё.

---

Leonid Troyanovsky   (2006-07-10 19:56:00) [4]

> Чапаев ©   (10.07.06 13:36)  

> Чего не хватает? :-)


Видимо, не удовлетворены ограничения MS.
RTFM: msdn SetForegroundWindow.

--
Regards, LVT.

---

Ketmar   (2006-07-10 19:03:00) [5]

ещё можно попробовать привинтить поток ввода. а вообще -- гугль. где-то там я встречал по похожему поводу детальное исследование. %-)

---

capkoh   (2006-07-10 16:29:00) [6]

И в итоге она не активируется? :-)

А нужно вызывать SetForegroundWindow? Без нее не работает?
Если нет, то я бы посоветовал поменять местами первые 2 строки. Сначала SetForegroundWindow, а потом уже SetWindowPos.

---

Наверх