verschränke ToggleBoxes

[Sir Rufo]

Es ist eher simpel zu lösen:

Erstelle dir eine Eigenschaft vom Typ Boolean mit einer Setter-Methode:

Delphi-Quellcode:

procedure TForm1.SetStatus( const Value : Boolean );
begin
  if FStatus <> Value then
  begin
    FStatus := Value;
    GeheVor.Checked := FStatus;
    GeheZurueck.Checked := not FStatus;
  end;
end;

procedure TForm1.GehevorChange(Sender: TObject);
begin
  SetStatus( GeheVor.Checked );
end;

procedure TForm1.GehezurueckChange(Sender: TObject);
begin
  SetStatus( not GeheZurueck.Checked );
end;