запретить события мыши

[varelik]

Всем привет
Такой вопрос: при вызове opendialog в одной из процедур мне необходимо отключить события мыши (все клики и движения), а потом включить в конце тойже процедуры.
Слышал чтото про applicationevents, может его использовать?
Иными словами, процедура выглядит так:

procedure form1.xxx;
begin
----
if opendialog.execute then begin
//здесь надо блокировать мышь
----
end;
//здесь разблокировать
---
end;

подскажите пжлста в решении. никак не разберусь.

[CyberGenus]

не совсем понял, но тем не менее
можно заблокировать мышь (и клаву тоже) через вызов Виндоусовоской библиотеки user32.dll:

procedure BlockInput(ABlockInput: boolean); stdcall; external 'USER32.DLL'; {объявляем процедуру}
procedure TForm1.FormCreate(Sender: TObject);
begin          {и блокируем...}
BlockInput(True);
end;

для разблокировки пишем BlockInput(false);
можно только отключить курсор:

var
  CState: Integer;
begin
  CState := ShowCursor(True);
  while Cstate >= 0 do
    Cstate := ShowCursor(False);
end;

для включения поменяйте значение ShowCursor(False) на True...