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;