PopupMenue hat keinen ItemIndex ?

[nachtstreuner]

Hallo Delphifreunde,

ich erzeuge zur Laufzeit ein PopupMenue mit entsprechenden Einträgen.

Wie kann ich den text des angeklickten Menüeintrages herausfinden ? ItemIndex funzt nicht.

Hiermal der CODE :

Delphi-Quellcode:

procedure THauptForm.GenerateSkinlist;
var
 I: integer;
 A: TMenuItem;
 SL: TStringList;
begin
  SL := TStringList.Create;
  SkinHaupt.GetSkinNames(SL);
  advPopupMenu1.BeginUpdate;
  advPopupMenu1.Items.Clear;
  for I := 0 to SL.Count - 1 do begin
  A := TMenuItem.Create(Self);
  A.Caption := SL[I]; // Text
  A.OnClick := MenuClick; // Diese Prozedur reagiert auf die Klicks
  advPopupMenu1.Items.Add(A);
  end;
  advPopupMenu1.EndUpdate;
  FreeAndNil(SL);
end;

procedure THauptForm.MenuClick(Sender: TObject);
begin
  SkinHaupt.SkinName := advPopupMenu1.Items[advPopupMenu1.ItemIndex];

end;

FEHLER : undeklarierter Bezeichner : ItemIndex.