J'ai une application en Delphi 6.
Elle utilise dans un des contrôles l'affichage d'un message d'erreur par messageDlg.
Je voudrais que en sortie de cette fonction le buffer soit vidé.
J'ai trouvé ce code
Le problème est que sous D6 j'obtiens un message d'erreur sur TMSG et je ne sais pas quel type lui définir.Citation:
procedure VideBufferClavier;
var
Msg: TMsg;
begin
while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST,
PM_REMOVE or PM_NOYIELD) do;
end;
