User klicken unterbinden während Querry läuft

[Sir Rufo]

So müsste es eigentlich funktionieren:

Delphi-Quellcode:

ActionList1.Enabled := False;
Application.ProcessMessages;  // evtl. Unnötig
try
  // jetzt das ganze Geraffel ausführen
finally
  Application.ProcessMessages;
  ActionList1.Enabled := True;
end;