Отправка\Приём сообщения. Прозрачная форма.

[Zeraim]

Помогите принять сообщение прозрачной формой. (TransparentColor := true
Пробовал 2 способа:

const WM_MYMESSAGE = WM_USER + 666;
...
procedure GetMsg(var Msg: TMsg); message WM_MYMESSAGE;
...
procedure Tform1.GetMsg(var Msg: TMsg);
begin
if Msg.message = WM_MYMESSAGE then
begin
  SnowBlow;
end;
end;

И

procedure GetMsg(var Msg: TMsg; Handled: boolean);
...
procedure Tform1.GetMsg(var Msg: TMsg; Handled: boolean);
begin
if Msg.message = WM_MYMESSAGE then
begin
  SnowBlow;
  Handled := true;
end;
end;
...
Application.OnMessage := GetMsg;

В обоих случаях процедуру пробовал объявлять везде. Либо я неправильно посылаю сообщение форме либо неправильно принимаю, потому что если поставить TransparentColor := false; то всё работает.
Вот как отсылаю сообщение:

library Mouse;

uses
  Windows, Messages;

var
HookH : thandle;
const WM_MYMESSAGE = WM_USER + 666;

function GetMouseClick(Code, wParam, lParam : integer): LResult; stdcall;
begin
if Code = HC_ACTION then
  if wParam = WM_LBUTTONUP then
  Windows.Beep(900,100);
  PostMessage(HWND_BROADCAST,WM_MYMESSAGE,0,0);
Result := CallNextHookEx(HookH, Code, wParam, lParam);
end;

function SetHook(): LResult; stdcall;
begin
HookH := SetWindowsHookEx(WH_MOUSE,@GetMouseClick,HInstance,0);
end;

procedure UnHook(); stdcall;
begin
UnhookWindowsHookEx(HookH);
end;

exports
SetHook, UnHook;

end.

Свойства формы:
BorderStyle = bsNone;
FormStyle = FsStayOnTop;
TransparentColor = true;

[Somebody]

У меня этот код нормально работает при любом значении TransparentColor

[Zeraim]

Можете проэкт выложить ?

[Somebody]

Я, похоже, перепутал beep из dll со своим из обработчика сообщения - код не работает. А ошибка в том, что в Delphi везде используется не винапишная структура TMsg, а TMessage.

[Zeraim]

Что-то исправление с TMsg на TMessage нечего не дало, как срабатывало только при нажатии на форме так и осталось =\\ Есть еще какие-то способы уведомить мою форму что произошло нажатие мышкой ?

[Somebody]

В общем, я думал, это ни при чём, оказалось, что очень при чём. PostMessage с HWND_BROADCAST из dll'ки почему-то (интересно почему? хотя это правильно: если при каждом нажатии кнопки посылать сообщение всем потокам...) не работает, надо передавать хэндл формы и посылать сообщение ей.
BadProject - с TMsg - не работает
GoodProject - с TMessage - работает
Mouse.dll посылает сообщение только своей форме.

[Zeraim]

Наверное у меня какие-то косяки с системой, но у меня работает только при нажатии на форме =\\ Но спасибо за пример, узнал новые вещи 8)