Bouger le Panel avec keypress [Résolu]
sarssor
- Messages postés
- 63
- Date d'inscription
- dimanche 22 juillet 2007
- Dernière intervention
- 28 avril 2011
- Messages postés
- 4307
- Date d'inscription
- samedi 16 octobre 2004
- Dernière intervention
- 2 janvier 2019
A voir également:
- Delphi keypress
- Keypress delphi - Meilleures réponses
- Delphi onkeypress - Meilleures réponses
- [Delphi XE2] Contrôle des fuites mémoires avec FastMM4 - Conseils pratiques - Delphi
- [delphi] déclarer et utiliser les types - Conseils pratiques - Delphi
- [delphi] compatibilité et directives - Conseils pratiques - Delphi
- [delphi] installer des composants - Conseils pratiques - Delphi
- [delphi] optimiser le contenu de vos zips - Conseils pratiques - Delphi
13 réponses
Meilleure réponse
- Messages postés
- 4307
- Date d'inscription
- samedi 16 octobre 2004
- Dernière intervention
- 2 janvier 2019
place un TTimer sur ta fiche :
________________________________________________________
besoin de câbles audio, vidèo, informatique pas cher ?
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 100; // 100ms
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getAsyncKeyState(VK_LEFT) < 0 then
begin
if panel1.Left > 0 then
Panel1.Left := Panel1.Left-1;
end
else
if getAsyncKeyState(VK_RIGHT) < 0 then
begin
if (panel1.Left+panel1.Width) < Form1.Width then
Panel1.Left := Panel1.Left+1;
end;
if getAsyncKeyState(VK_UP) < 0 then
begin
if panel1.Top > 0 then
Panel1.Top := Panel1.Top-1;
end
else
if getAsyncKeyState(VK_DOWN) < 0 then
begin
if (panel1.Top+panel1.Height) < Form1.Height then
Panel1.Top := Panel1.Top+1;
end;
end;
________________________________________________________
besoin de câbles audio, vidèo, informatique pas cher ?
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
Salut
Il suffit d'utiliser la propriété refresh de ton TPanel.
Code non testé
Il suffit d'utiliser la propriété refresh de ton TPanel.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
With Panel1 Do
Begin
Case Key Of
39 : Left:=Left+1;
37 : Left:=Left-1;
38 : Top:=Top-1;
40 : Top:=Top+1;
End;
Refresh;
End;
end;
Code non testé
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Dernière intervention
- 15 décembre 2014
Mets la propriété KeyPreview da la form à true !
A+
Composants Cindy pour Delphi
A+
Composants Cindy pour Delphi
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Dernière intervention
- 15 décembre 2014
N' utilise pas l' événement OnKeyDown mais l' événement onKeyPress!
A+
Composants Cindy pour Delphi
A+
Composants Cindy pour Delphi
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Dernière intervention
- 15 décembre 2014
Je pense que c' est comme ça:
if Key = #39 then panel1.Left:=panel1.Left+1;
Mets un breakpoint pour voir la valeur de Key!
A+
Composants Cindy pour Delphi
if Key = #39 then panel1.Left:=panel1.Left+1;
Mets un breakpoint pour voir la valeur de Key!
A+
Composants Cindy pour Delphi
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Dernière intervention
- 15 décembre 2014
procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_LEFT then
begin
Panel1.Left := Panel1.Left - 1;
Key := 0;
end;
end;
Composants Cindy pour Delphi
begin
if Key = VK_LEFT then
begin
Panel1.Left := Panel1.Left - 1;
Key := 0;
end;
end;
Composants Cindy pour Delphi
Salut,
C'est pas le code qui ne fonctionne pas. Le "problème" vient d'ailleurs.
Je te laisse réfléchir au pourquoi du comment mais je te met sur la voix
Prendre une form et lui ajouter un panel et un CheckBox, puis rentrer le code suivant
Tester et recommencer en supprimant la checkbox et conclure de nouveau.
Résultat : Est ce que c'est le code qui ne fonctionne pas ou juste un problème de message ??
C'est pas le code qui ne fonctionne pas. Le "problème" vient d'ailleurs.
Je te laisse réfléchir au pourquoi du comment mais je te met sur la voix
Prendre une form et lui ajouter un panel et un CheckBox, puis rentrer le code suivant
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Showmessage('TEST');
end;
Tester et recommencer en supprimant la checkbox et conclure de nouveau.
Résultat : Est ce que c'est le code qui ne fonctionne pas ou juste un problème de message ??
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.