Vereinfachung bei MainMenü mit Hackerl (check)

[ferby]

Hallo,

Ich werde mir mal die verschiedenen Lösungen ansehen,
daweil habe ich auch selbst was im Forum gefunden:

Delphi-Quellcode:

// KI
procedure TForm1.KIClick(Sender: TObject);
begin
  // Check von allen entfernen
  ki_aus.Checked:=false;
  ki_Leicht.Checked:=false;
  ki_normal.Checked:=false;
  ki_schwer.Checked:=false;
  ki_sehrschwer.Checked:=false;

  (Sender as TMenuItem).Checked := true;
end;