Du schreibst einfach eine Prozedur wie z.B.
procedure TForm1.PanelAction(Sender: TObject); und bindest diese im Interface-Teil der
Unit ein:
Delphi-Quellcode:
type
TForm1 = class(TForm)
procedure PanelAction(Sender: TObject);
Jetzt weist du über den Objektinspektor jedem Panel genau diese Prozedur zu
(Objektinspektor -> Ereignisse -> OnClick -> PanelAction).
Die Prozedur sollte wie von roderich schon erläutert beschrieben werden:
Delphi-Quellcode:
if (Sender is TPanel) then
with Sender as TPanel do
begin
Caption := 'Hallo!';
end;