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.