[Spawn.Ivan]

Здравствуйте. Когда бродил по просторам интернета я нашел вот это:
Цитата:

type
TForm1 = class(TForm)
procedure WMXButtonDown( var Message: TWMMouse); message WM_XBUTTONDOWN;


const
{$ifdef COMPILER_13_UP} // WM_XBUTTON* уже объявлены в D2010
WM_XBUTTONDOWN = $020B; // сообщение о нажатии X button
WM_XBUTTONUP = $020C; // сообщение об отпускании X button
{$endif}
MK_XBUTTON1 = $20; // идентификатор клавиши "назад" в LoWord(WParam)
MK_XBUTTON2 = $40; // идентификатор клавиши "вперёд" в LoWord(WParam)
XBUTTON1 = $1; // код клавиши "назад" в HiWord(WParam)
XBUTTON2 = $2; // код клавиши "вперёд" в HiWord(WParam)

...

// Боковые кнопки---------------------------------------------------------------------
procedure TForm1.WMXButtonDown(var Message: TWMMouse);
var Msg: PEVENTMSG;
begin
// удостоверяемся, что нажата Х кнопка
if Message.Keys and (MK_XBUTTON1 or MK_XBUTTON2) <> 0 then
begin
// определяем, какая именно Х кнопка нажата и действуем соответственно
case HiWord(Message.Keys) of
XBUTTON1 : Form1.Memo1.Lines.Add('Back');
XBUTTON2 : Form1.Memo1.Lines.Add('Fwd');
else ShowMessage('Err');
end;


end;


end;
//------------------------------------------------------------------------------

Он позволяет определить что была нажата одна из X кнопок мыши.
Подскажите пожалуйста как его заставить работать в любом чужом окне и по всему рабочему пространству.

При определении 1,2,3-й кнопок я разобрался как. Но тут не получается... Помогите =)

[Bargest]

Хуки. И иже с ними. Примеры есть на DelphiSources и в гугле. Я на этом форуме когда-то давно тоже вывешивал пример.

[Spawn.Ivan]

Bargest,

Хуки. И иже с ними. Примеры есть на DelphiSources и в гугле. Я на этом форуме когда-то давно тоже вывешивал пример.

Можно пожалуйста по конкретнее? ( я уже третий день разобраться не могу..

[Bargest]

Раз два и где-то в моих сообщениях было, ток найти не могу....

О, нашел.
Это все на клавиатуру, на мышь по аналогии.