Erklärt isses eignetlich schon verständlich. Eigentlich ist es nicht möglich weil du OnClick eine Adresse der procedure zuweist. Ich würde wie schon erwähnt auch allen die gleiche procedure zuweisen und dann in der Procedure unterscheiden. Und umständlich ist das auch auf keinen Fall. Einfach
Delphi-Quellcode:
if Sender = Panel1 then
begin
end else
If Sender = Panel2 then
begin
[...]
Ist genau so übersichtlich wie 7 OnClickproceduren