Активация без захвата фокуса клавиатуры
Psycho © (2008-12-28 18:15:00)
Пытаюсь заставить окно не забирать у других фокус клавиатуры
при активации. Когда окно показывается самостоятельно, без участия
пользователя, фокус захватывается лишь в каком-то определённом
случае (по-моему, при первом показе окна после сворачивания в
трей), но хочется и от этого избавиться. Ну и под это дело можно бы
сделать, чтобы даже при клике фокус не забирало. Пробую через хуки
(проба пера в этом деле, так что наверно что-то не так делаю -
что-то не получается). Как поправить следующий код, чтобы
заработало?
OldWndProc, NewWndProc: Pointer;
procedure HookForm;
procedure UnhookForm;
procedure HookFormProc(var Msg: TMessage);
...
procedure TForm11.HookFormProc(var Msg: TMessage);
begin
if msg.Msg<>WM_SETFOCUS then
Msg.Result := CallWindowProc(OldWndProc,
Form11.Handle,
Msg.Msg, Msg.wParam, Msg.lParam);
end;
procedure TForm11.HookForm;
begin
OldWndProc := Pointer(GetWindowLong(Form11.Handle,
GWL_WNDPROC));
NewWndProc := Classes.MakeObjectInstance(HookFormProc);
SetWindowLong(Form11.Handle, GWL_WNDPROC,
LongInt(NewWndProc));
end;
Delphi 2007, Windows Vista
Psycho (2008-12-31 12:41:00) [1]
всё, решил весьма уникальным способом (в смысле только для
этой программы)
Наверх 
ЧАТ |
Орешник |
|
