Afficher une image
Fermé
minoucha m
Messages postés
7
Date d'inscription
samedi 23 mars 2013
Statut
Membre
Dernière intervention
26 mars 2013
-
23 mars 2013 à 15:54
Profil bloqué - 26 mars 2013 à 20:41
Profil bloqué - 26 mars 2013 à 20:41
A voir également:
- Afficher une image
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Recherche par image - Guide
- Image iso - Guide
- Faststone image viewer - Télécharger - Visionnage & Diaporama
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.
minoucha m
Messages postés
7
Date d'inscription
samedi 23 mars 2013
Statut
Membre
Dernière intervention
26 mars 2013
24 mars 2013 à 21:46
24 mars 2013 à 21:46
Merci bien ca marche bien
minoucha m
Messages postés
7
Date d'inscription
samedi 23 mars 2013
Statut
Membre
Dernière intervention
26 mars 2013
23 mars 2013 à 23:17
23 mars 2013 à 23:17
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
minoucha m
Messages postés
7
Date d'inscription
samedi 23 mars 2013
Statut
Membre
Dernière intervention
26 mars 2013
Modifié par minoucha m le 24/03/2013 à 12:35
Modifié par minoucha m le 24/03/2013 à 12:35
Merci metarefsalem mais comment je peux faire ça avec code source ???
minoucha m
Messages postés
7
Date d'inscription
samedi 23 mars 2013
Statut
Membre
Dernière intervention
26 mars 2013
24 mars 2013 à 21:27
24 mars 2013 à 21:27
merci beaucoup ca marche bien
minoucha m
Messages postés
7
Date d'inscription
samedi 23 mars 2013
Statut
Membre
Dernière intervention
26 mars 2013
26 mars 2013 à 19:17
26 mars 2013 à 19:17
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
et comment je peut afficher dans tedit 192.168.0.0
Merci d'avance