[D2006] vidage buffer clavier
petit souci WM_KEYFIRST et WM_KEYLAST ne sont pas déclarés
dans quelle unité se trouvent ces deux déclaration
ou quelle valeur dois-je mettre
Code:
1 2 3 4 5 6
|
procedure TMainForm.ViderClavier;
var Msg : TMsg;
begin
while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE OR PM_NOYIELD) do;
end; |
un peu de patience , beaucoup de recherche et EureKA
CONFUCIUS est un grand philosophe
WM_KEYFIRST , WM_KEYLAST sont déclarés dans l'unité Messages
pour mémo voici également les valeurs
WM_KEYFIRST = 256;
WM_KEYLAST = 264;
WM_MOUSEFIRST = 512;
WM_MOUSELAST = 521;
PM_REMOVE = 1;