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 !

Salut, je t´ai pondu un petit code qui devrait correspondre à tes besoins.
C´est une méthode classique qui gère les évènements clavier:
----
unit uMaProcClavier;

interface

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

type
TForm1 = class(TForm)
lblKey: TLabel;
procedure FormCreate(Sender: TObject);
procedure MaProcClavier(var Msg: TMsg; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MaProcClavier(var Msg: TMsg; var Handled: Boolean);
begin
/ /Ici
IF Msg.message = WM_KEYDOWN THEN
BEGIN
lblKey.Caption:= ´Touche appuyée : ´;
CASE Msg.wParam OF
VK_ESCAPE: Application.Terminate;
VK_UP: lblKey.Caption:= lblKey.Caption + ´HAUT´;
VK_DOWN: lblKey.Caption:= lblKey.Caption + ´BAS´;
VK_LEFT: lblKey.Caption:= lblKey.Caption + ´GAUCHE´;
VK_RIGHT: lblKey.Caption:= lblKey.Caption + ´DROITE´;
{POUR TON PROGRAMME TU ADAPTES EN FONCTION DE TON IMAGE}
{VK_UP: TonImage.Top:= TonImage.Top - 1}
{VK_DOWN: TonImage.Top:= TonImage.Top + 1}
{VK_LEFT: TonImage.Left:= TonImage.Left - 1}
{VK_RIGHT: TonImage.Left:= TonImage.Left + 1}
END;
END;

IF Msg.message = WM_KEYUP THEN
lblKey.Caption:= ´Aucune touche appuyée´;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:= MaProcClavier;
end;

end.

J´ai enlevé tout le code d´avant et mis le tiens , mais il y a une erreur qui est parvenu :

" Erreur dans le module Unit4 : La declaration de la classe TForm4 manque ou est incorrect."

Sinon merci quand meme .

T´as msn ?

Moi c´est rtcwfan5@hotmail.com , rajoutes-moi ! ; )

Pour m´aprendre !

Voici le code pour l´image du personnage que je veux faire bouger :

unit Unit4;

interface

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

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

var
Form4: TForm4;

implementation

{$R *.dfm}

end.