Bonjour a toutes et a tous .
Voila plus de deux semaines que je galère pour simuler la procédure - FormKeyDown - dans un timer.
Pour bien expliquer : comment savoir si une touche a été pressée dans l’évènement d’un TTimer .
Merci pour toutes aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Partager