Utilisation de Sender d'un évènement
Bonjour à toutes et à tous,
Dans le code suivant :
Code:
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
