Maus sperren während Tastatureingabe

[Sir Rufo]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  h: hwnd;
begin
  h := Form1.Handle; // <--- Eher so ...
  InstallHooks(h); // EXCEPTION
  WM_MOUSEHOOKMSG:=getprop(h,mousmsg);
  WM_KEYBHOOKMSG:=getprop(h,keybmsg);
end;