with sender

[DeddyH]

Und hier eine Variante mit Typprüfung:

Delphi-Quellcode:

procedure TForm1.panelclick(Sender: TObject);
var
  Panel: TPanel;
begin
  if Sender is TPanel then
    begin
      Panel := Sender as TPanel;
      if Panel.BevelOuter = bvRaised then
        Panel.BevelOuter := bvLowered
      else
        Panel.BevelOuter := bvRaised;
    end;
end;