RadioGroup ItemIndex OnClick Probelm

[Joergie]

Hallo,
ich habe 2 RadioGroups mit Events-OnClick

Delphi-Quellcode:

procedure RadioGroup1.OnClick();
begin
  ...
  RadioGroup2.ItemIndex := 2;
end;


procedure RadioGroup2.OnClick();
begin
  ...
  RadioGroup1.ItemIndex := 2;
end;

Dies verusacht eine Endlosschleife, weil wenn ich den ItemIndex einer RadioGroup neu setze, auch wieder das OnClick Ereignis aufgerufen wird.

Was kann ich machen, damit dies nicht passiert?

~joerg

[Bernhard Geyer]

Definiere in deiner Unit einen Merker in folgender Art verwendest:

Delphi-Quellcode:

procedure RadioGroup1.OnClick();
begin
  ...
  if not FInClick then
  begin
    FInClick := True;
    RadioGroup2.ItemIndex := 2;
    FInClick := False;
  end;
end;


procedure RadioGroup2.OnClick();
begin
  ...
  if not FInClick then
  begin
    FInClick := True;
    RadioGroup1.ItemIndex := 2;
    FInClick := False;
  end;
end;

[Die Muhkuh]

Mal ne Frage:

was bringt das? Man kann ja nur das zweite Item anwählen, da es ja immer gesetzt wird? Irgendwie ist das nicht logisch?

[Sharky]

Oder schalte das OnClick-Event in der Methode ab:

Delphi-Quellcode:

procedure TForm1.RadioGroup1Click(Sender: TObject);
var
  onclick : TNotifyEvent;
begin
  onclick := RadioGroup2.OnClick;  // OnClick-Methode speichern
  RadioGroup2.OnClick := nil;  // OnClick "Abschalten"
  // Dein Code;
  RadioGroup2.OnClick := onclick;  // OnClick wieder zuweisen.
end;

[Edit]Hatte da einen "kleinen" Fehler

[Joergie]

Zitat von Sharky:

Oder schalte das OnClick-Event in der Methode ab:

Danke, das hat schon geholfen. Auch danke für die anderen Vorschläge!

~joerg