Как отследить нажатие кнопок мышки на прозрачной форме или глобально - Delphi - Ответ 8576040

 MyHook := SetWindowsHookEx(WH_GETMESSAGE  , @LowLevelMouseProc , HInstance, GetCurrentThreadId);

var
 HookedAlready: Boolean;
 MyHook: HHook;
{***********  HOOK -start- ******************}
 
function LowLevelMouseProc (Code: integer; wParam: Word;lParam: Longint): Longint;stdcall;
begin
{WM_LBUTTONDOWN - левая кнопка, WM_RBUTTONDOWN - правая кнопка}
if (code = HC_ACTION)and(TMsg(Pointer(lParam)^).message = WM_LBUTTONDOWN) then
{- Do Something -}
 result := CallNextHookEx(MyHook, Code, wParam, lParam);
end;
 
procedure SetHook;
begin
 if HookedAlready then
   exit;
 MyHook := SetWindowsHookEx(WH_GETMESSAGE  , @LowLevelMouseProc , HInstance, GetCurrentThreadId);
 HookedAlready := True;
end;
 
procedure UnHookHook;
begin
if HookedAlready =true then
 UnHookWindowsHookEx(MyHook);
 HookedAlready := False;
end;
 
{***********  HOOK -end-  ******************}
procedure TForm1.FormCreate(Sender: TObject);
begin
SetHook;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnHookHook;
end;
 
[size="1"][color="grey"][I]Добавлено через 4 минуты[/I][/color][/size]
Еще пробовал через таймер вот так:
 
procedure TForm2.Timer1Timer(Sender: TObject);
begin
if GetKeyState(VK_LBUTTON)>0 then
   begin
     showmessage('нажата кнопка мыши');
   end;
end;