with sender

[jangbu]

Hallo,

habe mehrere Panels, will über eine procedure "panelclick" und die Abfrage des Senders die Eigenschaften des jeweils geclickten Panels verändern um nicht für jedes Panel eine eigene onclick prozedure erstellen zu müssen. Ich bekomme keine Fehlermeldung, wenn ich das programm debuge springt es auch in den richtigen if bzw else-zweig, jedoch ändert sich die erwartete Eigenschaft nicht. Ich wollte eigentlich, dass zur Laufzeit "with Sender" in z.B. "with Panel2" übersetzt wird! Was mach ich falsch?

Delphi-Quellcode:

procedure TForm1.Panel1Click(Sender: TObject);
begin
  panelclick(Sender)
end;

procedure TForm1.Panel2Click(Sender: TObject);
begin
  panelclick(Sender)
end;

procedure TForm1.panelclick(Sender: TObject);
begin
  with Sender do
  begin
    if BevelOuter = bvRaised then
      BevelOuter := bvLowered
    else
      BevelOuter := bvRaised;
  end;
end;

jangbu

[edit=SirThornberry]delphi-tags gesetzt - nächstes mal bitte selbst machen. Mfg, SirThornberry[/edit]