RadioGroup ItemIndex OnClick Probelm

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