Discussion :

[ChPr]

Bonjour à toutes et à tous,

Dans le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TBase.txtZHGChange(Sender: TObject);
begin
  if (txtZHG.Text <> '') and (txtZHD.Text <> '') and (txtZBD.Text <> '') and (txtZBG.Text <> '')
  and (txtEHG.Text <> '') and (txtEHD.Text <> '') and (txtEBD.Text <> '') and (txtEBG.Text <> '')
  and (txtNHG.Text <> '') and (txtNHD.Text <> '') and (txtNBD.Text <> '') and (txtNBG.Text <> '')
  then
    btnConversion.Enabled:= True
  else
    btnConversion.Enabled:= False;
end;

j'ai affecté la procédure txtZHGChange(Sender: TObject) à plusieurs composants TEdit.

Mais à l'intérieur de cette procédure, je voudrais la particulariser pour certains de ces TEdit.

Sender, qui est de la classe TObjet est-il seulement porteur de la classe de celui qui a appelé cette procédure ou bien est-il porteur de l'instance qui a appelé cette procédure. Si c'est ce dernier cas, comment se servir de cette valeur de Sender pour faire quelque chose de particulier avec cette instance ?

Dans le genre : si Sender est txtZHD alors, faire par exemple :txtZHD.Text:= 'Oui';

Merci de votre aide.

Pierre

[tourlourou]

Bonjour,

Le Sender pointe sur l'instance de l'objet passé en paramètre, permettant des tests comme if Sender = txtZHG ou if Sender is TEdit.

Il peut aussi être passé nil si on lance l'événement par code...

[ChPr]

Bonjour,

Le Sender pointe sur l'instance de l'objet passé en paramètre, permettant des tests comme if Sender = txtZHG ou if Sender is TEdit...

Ok, j'avais confondu les fonctions de "=" et de "is" (instance et classe).

Cordialement.

Pierre