Hallo,
du solltest deinen Titel in PopupMenü ändern, da es sonst wohl schlecht gefunden wird in Zukunft.
Zur Frage:
Du brauchst dazu eine Variable vom Typ TMenuItem. In der Hilfe findest du einiges dazu. Hier ein kurzes Beispiel:
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.
...
MeinPopUpMenu.Items.Add(A); // Fügt das Item zum Popupmenü
end;
SL.Free;
end;
Du könntest dir natürlich auch ein Array vom Typ TMenuItem erstellen, aber ich denke das sollte dir als Grundlage erstmal ausreichen.