Utilisation du paramètre Sender
Remonter à Utilisation des composants - Index
Dans un gestionnaire d'événement, le paramètre Sender indique le composant qui a reçu l'événement et qui a donc appelé le gestionnaire. Il est parfois pratique de partager entre plusieurs composants un même gestionnaire d'événement qui doit se comporter différemment selon le composant qui l'a appelé. Vous pouvez y arriver en utilisant le paramètre Sender dans une instruction if...then...else. Par exemple, le code suivant affiche le nom de l'application dans le titre d'une boîte de dialogue uniquement si l'événement OnClick a été reçu par Button1.
procedure TMainForm.Button1Click(Sender: TObject);
begin
if Sender = Button1 then
AboutBox.Caption := 'A propos de ' + Application.Title
else
AboutBox.Caption := '';
AboutBox.ShowModal;
end;