Discussion :

[Gaetch]

Bonjour,

Je souhaite créer dynamiquement des TImages lorsque je clique sur un bouton. Cela fonctionne, mais à mon grand regret je n'arrive pas à associer d'évènement OnClick. J'ai regardé le tutoriel mais rien n'y fait je ne comprends pas, voici mon code :

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
public
    procedure My_Click(Sender: TObject);
end;
 
procedure TForm1.My_Click(Sender: TObject);
begin
    showmessage('TEST')
end;
 
procedure TForm1.Bouton1Click(Sender: TObject);
var
begin
    with TImage.Create(self) do begin
    parent := panelSalle ;
    OnClick := My_Click ;
end;

Cela compile et s'exécute normalement mais l'évènement n'est pas déclenché. Est-ce que vous auriez une idée ?

d'avance !

[Yurck]

une petite boulette tu n'as pas encapsulé l'ensemble de ton code With

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TForm1.Bouton1Click(Sender: TObject);
var
begin
    with TImage.Create(self) do begin
    parent := panelSalle ;
    OnClick := My_Click ;
    End;
end;

[ShaiLeTroll]

ça Compile ??? un var sans déclaration, un begin sans end; euh ça me semble peu probable !

[Yurck]

ça Compile ??? un var sans déclaration, un begin sans end; euh ça me semble peu probable !

Je me suis posé la même question, mais bon que voulez-vous il n'y a plus de saison.

Il semble qu'il s'agisse ici d'une copie partielle de code pour faciliter la lecture.
Enfin il semble .
Décidément, il n'y a plus de saison !

[pepi22]

Déplacez tout simplement la déclaration de My_click avec les déclarations de TNotifyEvent de la form

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
 
type
  TForm1 = class(TForm)
    //Liste des composants sur la form
    Button1 : TButton;
    Label1 : TLabel
    //ici avec tout les autres TNotifyEvent ***************
    procedure FormCreate(Sender : TObject);
    procedure My_Click(Sender : TObject); //************* ici
 
  private
 
  public
 
  end;

[Gaetch]

Oui j'ai pas claqué tout mon code ça servait à rien j'ai mis juste les trucs qui concernaient ce dont je parle. Donc oui ça compile mais ça réagit pas à l'évènement.

Même en déplaçant la déclaration comme tu dis pepi22...

[Linkin]

Quelles sont les dimensions du timage, une image est-elle chargée?

en mettant la propriété Align à alClient, ça ne marche toujours pas?

[Gaetch]

L'image se charge correctement c'est l'évènement qui ne fonctionne pas...

[Linkin]

En prenant ton code, cela fonctionne chez moi.

As-tu la possibilité d'envoyer le pas et le dfm?

[ShaiLeTroll]

Bien vu pepi22, en complément, je dirais que mettre published comme ceci fonctionne aussi, en fait lorsqu'il n'y a pas de "directive" de portée, cela prend published pour les hérités du TPersistent, et public pour les hérités du TObject.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
type
  TForm1 = class(TForm)
    //Liste des composants sur la form
    Button1 : TButton;
    Label1 : TLabel
    //ici avec tout les autres TNotifyEvent ***************
    procedure FormCreate(Sender : TObject);
  private
 
  public
 
  published
    procedure My_Click(Sender : TObject); //************* ici 
  end;

en général, les gestionnaires d'évènements affectés à la volée je les mets à part des évènements liés avec l'IDE ...

[Linkin]

La place de la déclaration l'événement n'a aucune importance dans le cas présent, non? (quelque soit la position cela fonctionne sous delphi 7).

[Yurck]

La place de la déclaration l'événement n'a aucune importance dans le cas présent, non? (quelque soit la position cela fonctionne sous delphi 7).

Strictement aucune importance il faut bien sur qu'elle soit "dans" la classe puisqu'il doit s'agir d'une procédure de class.
Mais c'est tout, et pis rien d'autre, aucune importance , rien de plus rien de moins c'est tout pareil sans distinction aucune, tout pareil qu'il a dit et pis voilà c'est comme ça pas d'importance.
enfin il me semble

[LeGEC]

Strictement aucune importance il faut bien sur qu'elle soit "dans" la classe puisqu'il doit s'agir d'une procédure de class.

Je me permet de nuancer : si on affecte la callback dans le code, avec une ligne du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    OnClick := My_Click ;

alors ca n'a effectivement aucune importance. Ca peut même être une méthode d'une autre classe ou d'un autre objet - la déclaration TNotifyEvent est simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TNotifyEvent = procedure(Sender: TObject) of object;

Par contre, si le composant est défini uniquement à partir du dfm, le programme lira et construira le composant à l'exécution, et il cherchera les méthodes uniquement dans la section published du Form déclaré. Dans ce cas, l'erreur a lieu à l'exécution du programme - le compilateur n'affiche aucun warning.

*LeGEC*

[Yurck]

Je me permet de nuancer

Mais oui, bien sûr, il semble que je me sois emballé tel un jeune développeur fougueux.
Ceci dit notre ami(e) Gaetch est-il plus avancé pour autant ?
Et si il a pu corriger, alors comment ?

[Gaetch]

C'est bon j'ai trouvé !

En fait c'est juste un autre évènement qui interférait avec OnClick (OnDragDrop)