Delphi

Вопрос

Как не допусть повторного вызова обработчика до заверщения его работы?

Ответ

В обработчике сбросить обработчик .
А потом, последней строкой, вернуть как было…

procedure TForm1.Button1OnClick(…)
begin
Button1.OnClick := nil;
//Тут идет страшный код
Button1.OnClick := Button1Click;
end;

Примерно так.

Из конференции Expert_FAQ