отключение / включение реакции на мышь.

[DeKot]

В программе используется процедураFormMouseUp.Нужно, чтобы
при выполнении участка программы отключалась реакция на мышь, затем после выполнения этого участка вновь востанавливалась реакция на мышь. Какие методы для этого существуют ?

[Баламут]

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.OnMouseUp := nil;
//Так выключаем
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.OnMouseUp := FormMouseUp;
//Так включаем
end;

[DeKot]

Cпасибо! Баламут.