Очистить очередь сообщений клавиатуры и мышки

Советы » Клавиши » Очистить очередь сообщений клавиатуры и мышки

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com