VPF::Окно, не отбирающее фокус при появлении

Ne1tr1n0

Дата 7.10.2011, 13:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 120
Регистрация: 1.3.2009

Репутация: 2
Всего: 8

Добрый день!

Как сделать, чтобы форма при появлении (а появляется она при клике по другой форме) не перехватывала фокус у предыдущего окна? Хочу сделать подобие PopupMenu, чтоб при его появлении главное окно не теряло фокус.
Пока делаю вот так:

Код


procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
  begin
    Style := Style or WS_BORDER
    ExStyle:=ExStyle or WS_EX_TOPMOST or WS_EX_NOACTIVATE;
    WindowClass.Style := CS_SAVEBITS or CS_DROPSHADOW;
  end;
end;

Но главная форма все равно теряет фокус.
Как быть?

Спасибо.

Keeper89

Дата 7.10.2011, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58

http://stackoverflow.com/questions/2178494...2192590#2192590
http://stackoverflow.com/questions/813745/...-when-activated

И готовое решение:
http://downloadnew.org/development/compone...orm-497672.html

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Ne1tr1n0

Дата 7.10.2011, 15:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 120
Регистрация: 1.3.2009

Репутация: 2
Всего: 8

http://www.mustangpeak.net/download/compon...wnformsetup.exe - по этой ссылке 404

Ne1tr1n0

Дата 7.10.2011, 16:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 120
Регистрация: 1.3.2009

Репутация: 2
Всего: 8

Ссылочки помогли, спасибо. Сделал так:

Код


procedure TForm1.WmActivate(var Msg: TWMActivate);
begin
  SendMessage(GetWindow(Handle, GW_OWNER), WM_NCACTIVATE, Ord(Msg.Active <> WA_INACTIVE), 0);
  inherited;
  if Msg.Active = WA_INACTIVE then
    Release;
end;

Добавлено через 24 секунды
Вопрос решён.

Ne1tr1n0

Дата 8.10.2011, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 120
Регистрация: 1.3.2009

Репутация: 2
Всего: 8

А ни у кого не завалялось рабочей ссылочки на DropDownForm от Msutangpeak? Охота глянуть что оно из себя представляет.

Это сообщение отредактировал(а) Ne1tr1n0 - 8.10.2011, 18:26

Antony41

Дата 1.3.2012, 23:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 27.12.2008

Репутация: нет
Всего: 1

поправь

Код


procedure WmActivate(var Msg: TWMActivate); message WM_SETFOCUS;

и эту строчку

Код


SendMessage(GetWindow(HintForm.Handle, GW_OWNER), WM_SETFOCUS, Ord(Msg.Active <> WA_INACTIVE), 0);

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

Это сообщение отредактировал(а) Antony41 - 1.3.2012, 23:21

Ne1tr1n0

Дата 4.3.2012, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 120
Регистрация: 1.3.2009

Репутация: 2
Всего: 8

Резонное замечание, спасибо, поправлю.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »