récupérer l'objet sur lequel on clickeRésolu

Question

Bonjour,

je voudrais savoir comment récupérer l'objet (ici un tlabel ou un statictext).
il me faut en fait récupérer le caption du label sur lequel l'utilisateur va cliquer.

merci d'avance.

Lolo

Cirec · Accepted Answer

Salut,

Tu doubleClick sur un TStaticText de ta fiche et tu complètes comme suit :

procedure TfrmMain.StaticText1Click(Sender: TObject);
begin
  If Sender Is TStaticText Then
  ShowMessage((Sender as TStaticText).Caption);
  If Sender Is TLabel Then
  ShowMessage((Sender as TLabel).Caption);
end;

Ensuite tu lies tous les évènements OnClick des TLabel et TStaticText  (par l'intermédiaire de l'inspecteur d'objets) a cette procedure et c'est tout 
 
@+
Cirec

<hr size="2" />

sp40 · Answer

bonjour,


Tu peux également te passer du "As"

Procedure TMyForm.LabelOnClick(Sender : TObject);

begin

         showmessage (TLabel(Sender).Caption));

end;

Simon

Cirec · Answer

Il ne faudrait pas se passer du As il permet un contrôle supplémentaire pendant le transtypage 
donc plus de sécurité

La méthode que tu proposes n'offre aucune sécurité ou contrôle

 
@+
Cirec

<hr size="2" />

sp40 · Answer

C'est vrai Cirec, mais à partir du moment où je clique sur un TLabel,
que peut être le Sender sinon le TLabel en question ?  
Simon

florenth · Answer

Tu peux très bien avoir plusieurs composants pointant vers la même procédure pour leur Onclick par exemple.
Si tu as des Labels et des TStaticText, Delphi fonctionnera normalement car ils possèdent tous deux une proprété "Caption" mais gare à toi lors de développements plus complexes ...

Le mot clé "as" permet à Delphi de faire une vérification avant. Et déclanche des exception si ton transtypage n'est pas correct.

TMonType(xxx) devrait se limiter aux types simples.
Utilise (xxx as TMyClass) dès que cela parle d'objets. Et ne dit pas que ça prend plus de temps procésseur (ce qui est cependant vrai), il ne s'agit que de moins de 5 picoseconde (vérifié expérimentalement sur mon ordi).

Enfin... je dis ça... je dis rien en fait. C'est vous qui verrez la différence

sp40 · Answer

woaou ! 5 picosecondes ! 

Après relecture du post, il vaut mieux effectivement utiliser le "as", 

1000 excuses

Simon

lolocbr19 · Answer

Merci à tous pour votre aide !!! 
J'ai adopté la solution avec le AS !!! 

A tres bientot sur ce super forum !!!

Lolo

florenth · Answer

@ lolo: pourrait-tu valider la bonne réponse alors ? Merci d'avance.

@Simon: en fait, c'est 5 nanosecondes et non pas pico. Ce qui fait quand même 1000 fois plus !!!! Mais ça reste largement négligeable. En tout cas, c'est vraiment la dernière chose à laquelle je m'intéresserais si je devais optimiser au maximum mon code. 
De toutes façons, la POO sera toujours plus lente que la programmation procédurale alors pourqui s'embetter avec de telles futilités ? On ferait mieux de coder au lieu de ... Ben tiens, c'est justement ce que je vais faire !

++
Flo

sp40 · Answer

Entièrement d'accord Flo ! 


Merci pour la précision et bon code !

Simon

Récupérer l'objet sur lequel on clicke

9 réponses

Votre réponse

Discussions similaires