tout le monde , je voudrais savoir comment il faut faire pour déplacer une image vers les 4 directions a l´aide des touches fléchées dans delphi 6 profesionel.

merci bcp d´avance de votre réponse !

voici la partie du code , pour la fenetre ou je veux faire bouger mon personnage.

unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, AppEvnts;

type
TForm4 = class(TForm)
Image1: TImage;
procedure Image1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Image1Click(Sender: TObject);
begin

end;

end.unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, AppEvnts;

type
TForm4 = class(TForm)
Image1: TImage;
procedure Image1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Image1Click(Sender: TObject);
begin

end;

end.

Que dois-je EXACTEMENT marquer ? merci

Tu crée un TBitmap ( onglet " Supplément" je crois, sinon tu cherches ) .

Tu fais un onKeyPress sur ton TBitmap ( ou sur ton form, ça dépend de ce que tu veux --> essaie les deux ) . Tu fais ça :

procedure TForm1.nomtonbitmapKeyPress(Sender : TObject; var Key: Char);
begin
if Key = lecodeasciidetatouche then
begin
nomtonbitmap.Top := nomtonbitmap.Top +1
end;

( Ca, c´est pour si si tu veux faire descendre l´image.
Pour monter : nomtonbitmap.Top - 1
Pour à gauche : nomtonbitmap.Left - 1
Pour à droite : nomtonbitmap.Left + 1
)

Bon, c´est du approximatif . .. Parce que je fais pas de Pascal Objet !

C´est tres gentil de m´avoir répondu , mais j´ai fait TOUS les onglets mais je dis bien TOUS et je n´ai pa trouvé de Tbitmap !

T´étais obligé de créer un autre topic au même nom pour le même problème ? ...

regarde le nombre de fois ou j´ai demandé et vous m´avez meme pas répondu.

s.v.p ou est l´onglet TBitmap ?

Faut créer un autre topic pour savoir ou est TBitmap . .. ? ?

non si les gens ne répondent pas ici, ils ne répondront aps sur un autre.

J´me suis trompé, c´est pas TBitmap, c´est Image.

Mais je t´ai dit d´aller dans l´onglet " Supplément", et ça se voit quand même . .. T´es pas fin !

AAAAAAAAAAAAAAAAAAAAAAAAH ! !!!!!!!!!!! c´était donc ça ! !! J´en avais déja créer une image ! !!! :@

lol merci bcp ! !

euh . .

J´ai nommé mon image perso et j´ai fais comme tu m´as dit , ils surligent la commande " procedure TForm1.persoKeyPress(Sender : TObject; var Key: Char);"

procedure TForm4.persoClick(Sender: TObject);
begin
onKeyPress

procedure TForm1.persoKeyPress(Sender : TObject; var Key: Char);
begin
if Key = 31 then
begin
perso.Top := perso.Top +1
end;

end;

end.

voici l´erreur ( on ne voit pas tres bien , fais un clic droit et enregistrer l´image sous et ensuite ouvre la sur ton ordinateur , sof si toi tu l´as vois bien . )

http://membres.lycos.fr/gamemaker/ima.bmp

Plutôt que de bêtement copier/Coller mon code, essaie de le faire toi même.

Tu vas dans les évènements de Perso, et tu fais un onKeyPress ^^

Et pourquoi ça : ?

procedure TForm4.persoClick(Sender: TObject);
begin
onKeyPress

tjrs pas ! :´(

unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, AppEvnts;

type
TForm4 = class(TForm)
perso: TImage;
procedure persoClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm1.persoKeyPress(Sender : TObject; var Key: Char);
begin
if Key = 31 then
begin
perso.Top := perso.Top +1
end;

end;

end.

merci james bond j´y suis presk ! ! :D [007]

Y a quelque chose de pas bon la dedans :

unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, AppEvnts;

type
TForm4 = class(TForm)
perso: TImage;
procedure persoClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm1.persoKeyPress(Sender : TObject; var Key: Char);
begin
if Key = 31 then
begin
perso.Top := perso.Top +1
end;

end;

end.

if Key = chr(31) then

Sinon t´es sûr que 31 représente la flèche du haut ?