Discussion :

[Delphi-ne]

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

procedure VideBufferClavier;
var
Msg: TMsg;
begin
while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST,
PM_REMOVE or PM_NOYIELD) do;
end;

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.

[qi130]

TMsg est défini dans Windows (sous D6PE).

Il conviendrait donc de déclarer cette unité dans le uses...

[Delphi-ne]

J'ai ajouté Windows dans la liste des Uses
Maintenant le blocage est sur WM_KEYFIRST
Je ne trouve rien dans l'aide de Delphi dessus

[pinson]

Ajoute maintenant "Messages" dans tes Uses.

[Delphi-ne]

Ca compile sans erreur.
Merci

[LadyWasky]

J'ai ajouté Windows dans la liste des Uses
Maintenant le blocage est sur WM_KEYFIRST
Je ne trouve rien dans l'aide de Delphi dessus

Ajoutes l'unité messages dans tes uses. On va rajouter cette précision dans la FAQ.

Bon dev