Afficher une image

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.