MouseEnter

[sirius]

Du kannst mit enablewindow Ein Fenster mit einem Schlag "inaktiv" schalten.

oder

Du arbeitest mit TApplicationevents. Speziell dann mit dem Ereignis onMessage. Dort gehen alle Messages an dein Programm durch und du kannst die Mousemessages abfangen, wenn dir danach ist:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if stopMouseMessages then
    handled:= ((msg.message>= WM_MouseFirst) and (msg.message<= WM_MouseLast));
end;