Einzelnen Beitrag anzeigen

Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#3

Re: Vereinfachung bei MainMenü mit Hackerl (check)

  Alt 3. Nov 2005, 14:19
Die Lösung für dein Problem ist die Funktion Hier im Forum suchenFindComponent.

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;
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
  Mit Zitat antworten Zitat