Bonjour,

Autre possibilité :


function ToucheCla(t : integer) : boolean; // Appui Touche
// utilisations : if ToucheCla(VK_CONTROL) then EXIT;
// if...