Noch besser - weg mit dem with:
Delphi-Quellcode:
procedure TForm1.panelclick(Sender: TObject);
var
Panel: TPanel;
begin
Panel := Sender as TPanel;
if Panel.BevelOuter = bvRaised then
Panel.BevelOuter := bvLowered
else
Panel.BevelOuter := bvRaised;
end;
Nebenbei: Dir reicht
ein OnClick-Handler. Einfach Panel2 selektieren, im
OI OnClick markieren, die Combo aufklappen und dort Panel1Click auswählen.
HTH,
Uli.