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 : Sélectionner tout - Visualiser dans une fenêtre à part
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;