bonjour,
 
j'utilse la procedure onkeypress pour faire deplacer un carre dans ma form
 
j'aimerai maintenant faire deplacer un autre carre tout en deplacant le premierr
 
Mon probleme est le suivant:
 
Logiquement des que je veux faire deplacer mon deuxieme carre, le premier s arrete.
 
Pourriez vous m aider a gerer plusieurs input
 
Merci d avance

Utilise plutot OnKeyDown et OnKeyUp
Quand la touche du premier carré est down, tu déclenche le déplacement du premier. Idem pour le second
 
Quand la touche du premier carré est up, tu arete le déplacement du premier. Idem pour le second
 
exemple:
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=VK_LEFT then
     label1.Caption := 'Left down';
 
   if key=VK_right then
     label2.Caption := 'right down';
end;
 
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=VK_LEFT then
     label1.Caption := 'Left up';
 
   if key=VK_right then
     label2.Caption := 'right up';
end;