Rekursiven Eventaufruf verhindern

[oXmoX]

Hallo Wissende!

Folgendes Problem: Mein Programm fängt das OnClick-Event mehrerer TCheckBoxes ab und verändert bei der Behandlungsroutine wiederum die Checked-Eigenschaft dieser TCheckBoxes. Dadurch wird allerdings das OnClick-Event erneut ausgelöst, was zu einer Endlos-Rekursion und einem Stack-Overflow führt.
Wie kann ich das am geschicktesten verhindern?

Danke und Gruß,
J.

[Udontknow]

Hallo!

Ob es das geschickteste ist, weiss ich nicht, aber ich schalte vorher einfach eine Variable "Refreshing" auf True, die dem Programm als Merker dient, daß gerade die Steuerelemente vom Programm selbst aktualisiert werden. Diese Variable fragst du im Ereignis dann einfach ab.

Delphi-Quellcode:

Refreshing:=True;
try
  Checkbox1.Checked:=False;
  Checkbox2.Checked:=True;
finally
  Refreshing:=False;
end;

Cu,
Udontknow

[michael.lehmann]

ganz einfach:


ich gehe mal davon aus das du die checked-eigenschaft im onlick des controls änderst.
in ewta so:

Delphi-Quellcode:

...onclick(sender:TObject)
begin
 for i := 0 to ...
   blablabla
   checked[i] := true;

end;

dabei kommt es natürlich zu onlicks..

lösung:
du musst als erstes den onlick-event stilllegen, dann deinen code durchlaufen und dann wieder aktivieren:

Delphi-Quellcode:

...onclick(sender:TObject)
var
 oce : TNotifyEvent;
begin
  
 oce := (sender as TCheckBox).onlick;  // merken
 (sender as TCheckBox).onlick := nil;  // stilllegen

 try

  for i := 0 to ...
    blablabla
    checked[i] := true;

 finally
  (sender as TCheckBox).onlick := oce; // wieder aktivierern
 end;

end;

[edit=SirThornberry]Delphi-Tags ergänzt - Mfg, SirThornberry[/edit]

[SirThornberry]

Delphi-Quellcode:

procedure TYourForm.CheckBoxClicked(Sender: TObject);
var lOnClick: TNotifyEvent;
begin
  lOnClick := TCheckbox(Sender).OnClick;
  TCheckbox(Sender).OnClick := nil;
  //Do whatever you want
  TCheckbox(Sender).OnClick := lOnClick;
end;

[Udontknow]

@SirThornberry: Das Try/Finally nicht vergessen! :)

[oXmoX]

oki

danke euch ...so hätt ich es auch gemacht ;)

[marabu]

Hallo,

hier noch eine andere Vorgehensweise zur Unterbrechung von cascading events:

Delphi-Quellcode:

procedure TDemoForm.CheckBox1Click(Sender: TObject);
begin
  with Sender as TCheckBox do
    if Focused then
    begin
      CheckBox2.Checked := not Checked;
      // ...
    end;
end;

Grüße vom marabu

[Udontknow]

Ich glaube nicht, daß das Merkmal Focused ausreicht, um sowas zu verhindern. Du kannst doch, weil du gerade diese Checkbox angeklickt hast, eine Aktualisierung dieser Checkbox für nötig befinden...

Cu,
Udontknow

[marabu]

Hallo,

Zitat:

Zitat von Udontknow

Ich glaube nicht, daß das Merkmal Focused ausreicht, um sowas zu verhindern.

bei sauberem Code tut es das ganz gewiss.

Zitat:

Zitat von Udontknow

Du kannst doch, weil du gerade diese Checkbox angeklickt hast, eine Aktualisierung dieser Checkbox für nötig befinden...

Wenn der User auf eine aktive CheckBox klickt, dann wechselt diese ihren Zustand. Ist das nicht gewollt, so ist die CheckBox zu deaktivieren. Den von dir geschilderten Fall darf es in einem professionell erstellten Programm eigentlich nicht geben. Die von mir vorgestellte Technik verwende ich seit es ereignisgesteuerte frameworks gibt und ich bin ganz sicher nicht der einzige Profi der das so macht.

Freundliche Grüße vom marabu

[Lannes]

Hallo,

eine Möglichkeit ist hier in der Code-Library beschrieben:
Wert einer Checkbox ändern, ohne OnClick Handler auszulösen

Eine weitere Möglichkeit wird in einem Beitrag in der Entwickler-Ecke/Code-Library aufgezeigt:
Abhängigkeit mehrerer Checkboxen

Die dritte Möglichkeit besteht darin die CheckBox auf 'gechecked' zu setzen ohne die Eigenschaft Checked zu verändern, OnClick wird hierbei nicht ausgelöst:

Delphi-Quellcode:

CheckBox1.Perform(BM_SETCHECK,1,0);

'gechecked' aufheben:

Delphi-Quellcode:

CheckBox1.Perform(BM_SETCHECK,0,0);

Da aber die Eigenschaft Checked nicht verändert wird,
kann folgende Abfrage nicht mehr genutzt werden:

Delphi-Quellcode:

if CheckBox1.Checked then
  //...

Zur Statusabfrage muss dann folgendes genutzt werden:

Delphi-Quellcode:

if CheckBox1.Perform(BM_GETCHECK,0,0) = BST_CHECKED then
  showmessage('checked')
  else
    showmessage('not checked');