Ich habe beides noch nicht zum laufen gekriegt, oder zumindest nicht so wie ich es mir vorstelle.
Ich habe das Problem vorläufig simpel gelöst:
Delphi-Quellcode:
if IsBusy then Exit;
IsBusy := True;
MachWas; //inc. ProcessMessages
IsBusy := False;
Das, aber nur in Verbindung mit ProcessMessages, funktioniert sogar brauchbar. Neue Anweisungen werden solange abgewiesen bis die Funktion fertig ist.
Trotzdem interessiert mich das Leeren des Puffers, nur jetzt eher allgemein. Ich gucke mal wieso es nicht so geklappt hat, vielleicht lag der Fehler bei mir.
Ich hab es getestet, es ist tatsächlich so, dass, wenn eine Funktion eine Sekunde in Anspruch nimmt, der zweite Tastendruck erst eine Sekunde später OnKeyDown erreicht.