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