Mousehook: gedrückter Mbutton->keine Nachr. an Prog.

[OrallY]

Ich habe einen Maushook installiert der meinem Programm eine Nachricht schickt, wenn die sich die Maus bewegt. Der Hook verhindert auch, dass andere Programme noch eine Mausnachricht empfangen können (Grund: ich will auf den Desktop zeichnen).
Das klappt auch alles Wunderbar bei ungedrückter Maustaste. Doch wenn ich in irgendeinem Fenster eine Maustaste drücke und gedrückt halte, wird meinem Programm nur noch so lange eine Nachricht gescickt, wie die Maus sich über diesem Fenster befindet. Wenn sie über die Fenstergrenze hinausbewegt wird, kommt bei meinem Prog nix mehr an, erst wieder, wenn sie sich wieder über dem Fenster befindet.

Woran liegt das, und wie kann ich das beheben?

Der Maushook:

Delphi-Quellcode:

library mousehook;

uses
  Windows,
  Messages;

const
  WM_HOOKMAP = WM_USER + $0400;

var
  HookHandle    : HHook;
  FileMapObj    : THandle;
  FileMapView   : ^Integer;

function MouseHookProc(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  if code = HC_ACTION then
  begin
    FileMapObj := OpenFileMapping(FILE_MAP_READ, False,'MouseHookMapFile');
    if FileMapObj <> 0 then
    begin
      FileMapView := MapViewOfFile(FileMapObj, FILE_MAP_READ, 0, 0, 0);
      PostMessage(FileMapView^, WM_HOOKMAP, wParam, lParam);
      UnmapViewOfFile(FileMapView);
      CloseHandle(FileMapObj);
    end;
  end;
  {Das auskommentieren sorgt dafür, dass niemand anderes Mausnachrichten bekommen kann (ich weiß, ist vielleicht nicht das sauberste, aber es funktioniert wenigstens}
  //Result := CallNextHookEx(HookHandle, Code, wParam, lParam);
end;

procedure InstallMouseHook; stdcall;
begin
  HookHandle := SetWindowsHookEx(WH_MOUSE, @MouseHookProc, hInstance , 0);
end;

procedure UninstallMouseHook; stdcall;
begin
  UnhookWindowsHookEx(HookHandle);
end;

exports
InstallMouseHook,
UninstallMouseHook;

begin
end.

[OrallY]

Wie mich Assarbad aufklärte:

Zitat:

Mouse-Capturing ... was du erlebst sind die Auswirkungen von
Mouse-Capturing. Drueckst du die Taste ueber einem anderen Fenster, wird das Fenster u.U. so
lange den Nachrichteninput haben, wie die Taste gedrueckt bleibt (so
funktioniert EDA).

Dies ließe sich mit einem globalen Hook umgehen. Ein globaler Maushook ist WH_MOUSE_LL. Das Problem was aber bei der Benutzung dieses Hooks auftritt, ist das man die Maus bei auslassen des CallNextHookEx völlig blockiert. Mal davon abgesehen gibts den Hook nur auf NT basierten Systemen.

Doch habe ich mein Problem nun viel einfacher lösen können (Dank an obbschtkuche): Ich weite die Form auf den ganzen Bildschirm aus und verhindere mit Brush.Style := bsClear, dass sie gezeichnet wird. Trotzdem kann sie Nachrichten empfangen.