Deplacer un TImage sur une form

Question

Comment deplacer un TImage sur une form simplement en appuyant sur les fleches directionelles.
Merci de vos reponses!!!!

Nicolas___ · Answer

slt 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key= VK_RIGHT then carre.Left:=carre.Left+10;
if key= VK_LEFT then carre.Left:=carre.Left-10;

if key= VK_UP  ...
if key= VK_ DOWN  ...

ou carre=ton TIMAGE
end;

SLT

f0xi · Answer

et si tu utilise un Timer ou que tu ne prefere pas utiliser l'evenement FormKeyDown (probleme de focus) declare l'unité Keyboard dans la close uses. et fait cela : interface const {$j+} MoveLeftLock : boolean = true; MoveRightLock : boolean = true; MoveUpLock : boolean = true; MoveDownLock : boolean = true; {$j-} implementation procedure TForm1.FormCreate(Sender: TObject); begin form1.DoubleBuffered := true; end; procedure TForm1.Timer1OnTimer(sender : TObject); begin with image1 do begin // VERSION AVEC DEPLACEMENT UNIQUEMENT LINEAIRE if (keypressed = VK_LEFT ) and (MoveLeftLock) then left := left -5; if (keypressed = VK_RIGHT) and (MoveRightLock) then left := left +5; if (keypressed = VK_UP ) and (MoveUpLock) then top := top - 5; if (keypressed = VK_DOWN ) and (MoveDownLock) then top := top + 5; // VERSION AVEC DEPLACEMENT LINEAIRE ET DIAGONALE // if (IsKeyDown(VK_LEFT)) and (MoveLeftLock) then left := left -5; // if (IsKeyDown(VK_RIGHT)) and (MoveRightLock) then left := left +5; // if (IsKeyDown(VK_UP)) and (MoveUpLock) then top := top - 5; // if (IsKeyDown(VK_DOWN)) and (MoveDownLock) then top := top + 5; // CLIP DU MOUVEMENT DANS UNE FENETRE 640x480 if Left <= 0 then MoveLeftLock := false else MoveLeftLock := true; if Left >= 640 then MoveRightLock := false else MoveRightLock := true; if Top <= 0 then MoveUpLock := false else MoveUpLock := true; if Top >= 480 then MoveDownLock := false else MoveDownLock := true; end; end;

japee · Answer

... // CLIP DU MOUVEMENT DANS UNE FENETRE 640x480 MoveLeftLock := Left > 0; MoveRightLock := Left < 640; MoveUpLock := Top > 0; MoveDownLock := Top < 480; ça serait-y pas plus simple ? Bonne prog'

f0xi · Answer

Yes!



ben tu vois japee, je ne savais meme pas qu'on pouvait ecrire les conditions de cette fa&#231;on!



bien que j'utilise tr&#233;s souvent par exemple : boolean := Not boolean;



ce qui parrait completement logique que cela s'applique aussi a d'autre types...



pas mal du tout et merci a toi pour l'astuce, cela va encore grandement ameliorer la lisibilit&#233;e de mon code dans mes 

diverse applications.

______________________________________________
try
  WhiteNight := Gloup(Kawa);
exept
  on GloupOverFlow do GoToWaterClosed;
end;

japee · Answer

Ouais, en effet, utile et &#233;l&#233;gant, le basculeur logique :

PorteOuverte := not PorteOuverte;



Content de t'avoir modestement &#233;clair&#233;, fOxi 



Bonne prog' 



BlackNight := Gloup(Verveine) and not Listen(DeepPurple); //lol

Nicolas___ · Answer

Ouais pas mal f0xi 

mais j ai un gros prob , c est que j ai delphi7 et ce c** de prog  il me trouve pas l unite keyboard ,

C est moi qui le suis ou alors je dois telecharger cette unite ??? 

Si oui , ou???

Thanx

Deplacer un TImage sur une form

6 réponses

Votre réponse

Discussions similaires