A voir également:
- Afficher une image
- Légender une image - Guide
- Image iso - Guide
- Acronis true image - Télécharger - Sauvegarde
- Reduire taille image - Guide
- Transformer une image en icone - Guide
7 réponses
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.
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
j'utilise Delphi 7
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question