Vereinfachung bei MainMenü mit Hackerl (check)

[s.h.a.r.k]

Die Lösung für dein Problem ist die Funktion FindComponent.

Du könntest das wie folgt schreiben:

Delphi-Quellcode:

procedure TForm1.KIClick(Sender: TObject);
const
  { Einträge im MainMenu oder Popup }
  mItems : array[0..4] of String = ('ki_SehrLeich','ki_Leicht','ki_Normal','ki_Schwer','ki_SehrSchwer');
var
  i : Integer;
  nItem : TMenuItem;
begin
  for i := 0 to 4 do begin
    nItem := (FindComponent(mItems[i])) as TMenuItem; // Holen des Eintrages
    if (Sender = nItem) then begin
      nItem.Checked := True;
    end else nItem.Checked := False;
  end;
end;