Den Parameter Sender verwenden
Nach oben zu Komponenten verwenden - Index
In einer Behandlungsroutine gibt der Parameter Sender an, welche Komponente das Ereignis empfangen und die Routine aufgerufen hat. Unter Umständen ist es sinnvoll, eine Ereignisbehandlungsroutine für mehrere Komponenten zu verwenden, die sich je nachdem, von welcher Komponente sie aufgerufen wird, anders verhält. Sie können dies durch Verwendung des Parameters Sender in einer if...then...else Anweisung erreichen. Der folgende Code zeigt den Anwendungstitel beispielsweise nur dann in der Titelleiste eines Dialogfelds an, wenn das OnClick-Ereignis für Button1 ausgelöst wurde.
procedure TMainForm.Button1Click(Sender: TObject);
begin
if Sender = Button1 then
AboutBox.Caption := 'About ' + Application.Title
else
AboutBox.Caption := '';
AboutBox.ShowModal;
end;