* SwissDelphiCenter new Tip newsletter * www.swissdelphicenter.ch * * To unsubscribe send a mail to sdcnewtip-request@xxxxxxxxxxxxx with the * subject unsubscribe Hallo, Folgender neuer Tip ist neu auf SwissDelphiCenter verfügbar: Besuchen Sie die Programmier Tips unter http://www.swissdelphicenter.ch/de/tipsindex.php Bewerten Sie diesen Tip nach Schwierigkeitsgrad, Nützlichkeit und Gesamthaft auf http://www.swissdelphicenter.ch/de/showcode.php?id=1066 Autor: P. Below <> http://www.teamb.com ------------- ...den Tastatur-/Mausbuffer leeren ? ------------- Kategorie: System procedure EmptyKeyQueue; var Msg: TMsg; begin while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do; end; procedure EmptyMouseQueue; var Msg: TMsg; begin while PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST, PM_REMOVE or PM_NOYIELD) do; end; Best Regards SwissDelphiCenter Team www.swissdelphicenter.ch [automatisch generierte EMail] ---------------------------------------------------- ENGLISH NEWSLETTER ---------------------------------------------------- Hi, This new tip is new available on SwissDelphiCenter.ch: Visit the programming tips at http://www.swissdelphicenter.ch/en/tipsindex.php Rate this tip after skill, useful and overall at http://www.swissdelphicenter.ch/en/showcode.php?id=1066 Author: P. Below <> http://www.teamb.com ------------- ...flush the mouse/keyboard buffer ? ------------- Category: System procedure EmptyKeyQueue; var Msg: TMsg; begin while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do; end; procedure EmptyMouseQueue; var Msg: TMsg; begin while PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST, PM_REMOVE or PM_NOYIELD) do; end; Best Regards SwissDelphiCenter Team www.swissdelphicenter.ch [automatic generated EMail]