IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Lazarus Pascal Discussion :

Changement d'une image dynamique [Lazarus]


Sujet :

Lazarus Pascal

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Cyberdocumentaliste
    Inscrit en
    Décembre 2021
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Cyberdocumentaliste
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Décembre 2021
    Messages : 11
    Par défaut Changement d'une image dynamique
    Bonjour,

    Voilà mon probleme : je crée un GroupBox dynamique, dedans j'y mets une image ; ça me la crée, pas de probleme, mais quand je veux interagir avec les propriétés de l'image, genre la faire disparaître ou plutot changer l'image d'origine.

    J'avoue que les objets dynamiques je galère pas mal.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    Groupe_ALIMx : TGroupBox;
      flecheHAUT_ALIMx : TImage; 
     
    Groupe_ALIMx := TGroupBox.Create(Self) // j'ai essayer form1 c'est pas mieux;
     with Groupe_ALIMx do begin
       Parent       := Self; // j'ai essayer form1 c'est pas mieux
       Name         := 'Groupe_ALIM1';
       Caption      := 'ALIM 1 - TP001 - Test Armoire';
       Font.Height := -12  ;
       AutoSize     :=False;
       Width        :=192;
       Height       :=305;
       Left         :=668;
       Top          :=136;
     end;
     
     
       flecheHAUT_ALIMx := TImage.Create(Groupe_ALIMx);
     with flecheHAUT_ALIMx do begin
       Parent       := Groupe_ALIMx;
       Name         := 'flecheHAUT_ALIM1';
       Picture.LoadFromFile('images\fleches\fleche bleu haut petite.png') ;
       visible      :=true;
       Width        :=32;
       Height       :=43;
       Left         :=148;//148
       Top          :=8; //8
     end;                                 
     
     
    procedure TForm1.Button5Click(Sender: TObject);
    begin
      if (FindComponent('flecheHAUT_ALIM1') as TImage).Visible=true then
         begin
            (FindComponent('flecheHAUT_ALIM1') as TImage).Visible:=false;
     
             end
      else
      begin
         (FindComponent('flecheHAUT_ALIM1') as TImage).Visible:=true;
     
        end;
     
    end;

  2. #2
    Modérateur
    Avatar de tourlourou
    Homme Profil pro
    Biologiste ; Progr(amateur)
    Inscrit en
    Mars 2005
    Messages
    3 931
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Biologiste ; Progr(amateur)

    Informations forums :
    Inscription : Mars 2005
    Messages : 3 931
    Billets dans le blog
    6
    Par défaut
    Bonjour,
    Si tu fixes à Form1 le Owner de ton TImage, le FindComponent devrait le trouver.
    Dans ton code, c'est le TGroupBox qui en est propriétaire alors qu'il doit en être Parent uniquement.
    Delphi 5 Pro - Delphi 11.3 Alexandria Community Edition - CodeTyphon 6.90 sous Windows 10 ; CT 6.40 sous Ubuntu 18.04 (VM)
    . Ignorer la FAQ Delphi et les Cours et Tutoriels Delphi nuit gravement à notre code !

  3. #3
    Membre averti
    Homme Profil pro
    Cyberdocumentaliste
    Inscrit en
    Décembre 2021
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Cyberdocumentaliste
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Décembre 2021
    Messages : 11
    Par défaut
    Merci pour le retour mais en ligne de commande ça donne quoi du coup, parce que là je suis noyé.

    Bon ça marche avec ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    flecheHAUT_ALIMx := TImage.Create(form1);
     with flecheHAUT_ALIMx do begin
       Parent       := Groupe_ALIMx;
       Name         := 'flecheHAUT_ALIM1';
       Picture.LoadFromFile('images\fleches\fleche bleu haut petite.png') ;
       OnClick      :=@cadenasOUVERT_ALIMClick;
       visible      :=true;
       Width        :=32;
       Height       :=43;
       Left         :=148;//148
       Top          :=8; //8
     end;

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Crystal Report] Afficher une image dynamiquement
    Par ntondini dans le forum SAP Crystal Reports
    Réponses: 1
    Dernier message: 09/08/2005, 09h58
  2. [FLASH MX2004] Insérer une image dynamiquement
    Par Brian3D dans le forum Flash
    Réponses: 5
    Dernier message: 04/04/2005, 10h02
  3. [VB.NET] Afficher une image dynamiquement
    Par Sadneth dans le forum ASP.NET
    Réponses: 20
    Dernier message: 07/01/2005, 16h26
  4. [C#] ajouter une image dynamiquement
    Par h_imane dans le forum ASP.NET
    Réponses: 4
    Dernier message: 21/04/2004, 11h27
  5. [CR7] Insérer une image dynamiquement
    Par yoloosis dans le forum SAP Crystal Reports
    Réponses: 12
    Dernier message: 28/07/2003, 09h54

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo