PopUp Menü erweitern.

[jeroen_a]

Hi,

hab ich gemacht und folgenden code gefunden:
(Hab ich etwas geändert)

Delphi-Quellcode:

var 
  I: Integer; 
  A: TMenuItem; 
  SL: TStringList; 
begin 
  SL := TStringList.Create; 
  //Items der Stringliste laden oder sonstwas mit machen 
  SL.Add('1'); 
  SL.Add('Test'); 

  // ich habe hier eine TStringListe mit den Items 
  for I := 0 to SL.Count - 1 do 
   begin 
    A             := TMenuItem.Create(Self); 
    //A.RadioItem   := True; // Wenn du willst, dass es RadioItems (Kreise) sind 
    //A.GroupIndex  := 1; // -dito- 
    A.AutoCheck   := True;   // Autom. markieren bei Klick an 
    A.Caption     := SL[I];  // Text 
    A.Hint        := SL[I];  // Hinweis-Text 
//    A.OnClick     := MenuClick; // Diese Prozedur reagiert auf die Klicks 
    A.Tag         := I; // Um später gezielt darauf zugreifen zu können, speichern wir den SL Index als Tag ab. 
    
    PopUpMenu.Items.Add(A); // Fügt das Item zum Popupmenü  
   end; 

  SL.Free; 
end;

Aber es kommt immer ein AV.
Was hab ich vergessen.

jeroen