Simuler OnKeyDown dans TTimer
Bonjour a toutes et a tous .
Voila plus de deux semaines que je galère pour simuler la procédure - FormKeyDown - dans un timer. :oops:
Pour bien expliquer : comment savoir si une touche a été pressée dans l’évènement d’un TTimer .
Merci pour toutes aide
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
|
procedure TForm1.Timer1Timer(Sender: TObject);
Var Key:Word;
Shift: TShiftState;
begin
label2.Caption:= chr(Key);
if GetKeyState(VK_SHIFT) < 0 then
begin
Label1.caption:='Shift +'+Label2.Caption;
end;
end; |
ce petit trick ne marche pas quand la fiche perd le focus
salu amie
onkeydown existe que dans les composantS visuel ( les composants qui recoit la focalisation)
dans notre cas ttimer ne recoit pas la focalisation. c'est pour ça j'ai utilisez un composant visuel . en plus de ça onkeydown de n'importe quel composant ne s'execute automatiquement que si son composant et on focalisation .
merci et bon courage amie