Popupmenü zur Laufzeit erweitern

[dahead]

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.