Ereignisse mehrer Controls in einem zusammenfassen?

[sx2008]

Mehrere Events (mit gleicher Signatur) können doch einen Eventhandler benützen.
Dazu kommt noch ein Trick.
Das Property Tag wird im Objektinspektor auf den Wert gesetzt, den beim Klicken der Pageindex annehmen soll.

Delphi-Quellcode:

procedure TForm1.SkinButtonClicked(Sender:TObject);
begin
   Notebook.Pageindex := (Sender as TControl).Tag;
end;