Afficher une image

Salut

Rien n'indique quel version de Delphi tu utlises.

En général pour afficher une image on dépose un composant pour la contenir, un bouton ou est implementé le code qui renseigne le chemin complet du fichier et la methode de chargement.

Jusqu'a Delphi 7 le composant TImage supporte les graphiques TBitMap, pour charger des fichiers JPG il faut ajouter l'unité Jpeg dans la clause implémentation.

Explique d'avantage ton probléme, en programmation il n'y a pas de solution standard aux devinettes.

Dans ce cas il faut un Timer pour chronometrer le deplacement en incrémentant la valeur Left/ms du composant conteneur de l'image, des calculs de difference symétrique s'imposent si tu comptes mieux faire.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
var  Count : Integer = 0;
implementation
uses Jpeg;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Picture_Path : TFileName;
begin
Picture_Path := {Le chemin complet de ton image + l'extension entre deux apostrophe ICI}
//Par exemple ---> 'C:\Minoucha_M.Jpg';

{Si le fichier n'existe pas ou le chemin est
erroné une exception est declenchée}
Image1.Picture.LoadFromFile(Picture_Path);
Form1.HorzScrollBar.Visible := False;
Form1.VertScrollBar.Visible := False;
Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Count := Count + 1;
if Image1.Left > Form1.Width - Image1.Width then Image1.Left := - Image1.Width;
if Count = 50 then Timer1.Enabled := False;
Image1.Left := Image1.Left + 100;
end;

end.

Merci je trouvé une solution mais j'ai un autre problème comment je peut bouger c a dire placer l'image dans le Form a droite ou bien a gauche....selon la le choix de l'utilisateur
j'utilise Delphi 7

Merci metarefsalem mais comment je peux faire ça avec code source ???

merci beaucoup ca marche bien

Comment déplacer un composant TImage avec la souris lors de l'éxecution de l'application????
et comment je peut afficher dans tedit 192.168.0.0
Merci d'avance