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]

[SubData]

Versuchs mal so:

 with (Sender as TPanel) do

[sirius]

Du kannst in deinen Panels (im OI) auch anstatt des Standardereignisnamens eine eigene Methode eintragen (und dann in jedem dieselbe)

Es gibt Eigenscaften von Fenstern, die kann man nur beim erstellen des Fensters einstellen. Nachträgliche änderungen werden von Windows nicht berücksichtigt. Vielleicht gehört Bevel dazu.

[uligerhardt]

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.

[RavenIV]

Zitat von uligerhardt:

Noch besser - weg mit dem with

Sehr guter Tip.
Das WITH ist meistens unnötig und verwirrt sowohl Mensch wie auch Compiler/Debugger

Zitat von uligerhardt:

Nebenbei: Dir reicht ein OnClick-Handler. Einfach Panel2 selektieren, im OI OnClick markieren, die Combo aufklappen und dort Panel1Click auswählen.

Ich finde es auch immer blöd, wenn bei allen Panels im OnClick "Panel1Click" steht.
Dann doch eine "PanelClick" und diese überall eintragen.

[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;

[Cyf]

Habs mal kurz umgebaut. (Klar, dass Visible nie false sein wird, ist mir auch klar, aber es geht um die Theorie und das sieht man gut...)
Nurmal um den Unterschied bei der vorhanden Version klar zu machen, vielleicht hilft es ja jemanden, wenn der das mal liest:

Delphi-Quellcode:

with (Sender as TPanel) do
  begin
    if Visible = true then
      Visible := false
    else
      Visible := true;
  end;

Macht was es soll, löst z.B. ein Button aus irgendeinem Grund das ganze aus, gibts eine Exception.
[EDIT] Mit Deddy's Variante lässt sich diese verhindern, indem man vorher überprüft, ob der Typ stimmt, ob das sinnvoll ist hängt von der Situation ab, z.B. wenn man eine Prozedur mehrere Ereignisse für verschiedene Komponenten bereit hält. Jedoch verhindert das Ganze auch das man die Exception zu sehen bekommt und so eventuell nicht erfährt, dass aus irgend einem Grund falsche Komponenten der Auslöser sind.[/EDIT]

Delphi-Quellcode:

with TPanel(Sender) do
  begin
    if Visible = true then
      Visible := false
    else
      Visible := true;
  end;

Macht zunächst auch was es soll, würde aber auch für den Button funktionieren und keinen Fehler produzieren (was hier nicht gewollt ist, sonst würde man einen entsprechende Vorfahren nehmen und das auch besser mit as).

Delphi-Quellcode:

with (Sender) do
  begin
    if Visible = true then
      Visible := false
    else
      Visible := true;
  end;

Funktioniert nicht, tut aber auch etwas, bloß nicht das was man wollte. Das Form wird dies in diesem Fall auswerten und verschwinden.

Und wie genannt, ist es hier eleganter gleich das OnClick Ereignis entsprechend zu setzen (geht übrigens auch zur Laufzeit noch).

[tomsel]

Zitat von DeddyH:

Und hier eine Variante mit Typprüfung

... und das sogar doppelt.


Ich schließe mich auch noch mit einer weiteren Variante an:

Delphi-Quellcode:

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

Du erhälst natürlich keine Fehlermeldung, weil TForm ebenfalls die eigenschaft BevelOuter besitzt. Du änderst also BevelOuter des Forms, und nicht des Panels (letzteres hast du ja schon gemerkt). Wie du siehst, kann dieses With eine tückische Fehlerquelle sein und ich sage ebenfalls: Weg damit, zumindest, wenn man nicht 100%ig sicher ist, was da passiert.

[jangbu]

Danke, super, passt!

jangbu

[DeddyH]

Zitat von tomsel:

Zitat von DeddyH:

Und hier eine Variante mit Typprüfung

... und das sogar doppelt.

Lieber doppelt als gar nicht, oder?