String aus zur Laufzeit erstelltem PopUpMenü zurückgeben?

[ChrisE]

Zitat von Grolle:

nein ich habe keinen Handler zugeordnet. Hier mein Text:

Dann weise ihn doch zu. Ich meine wie willst du sonst auf onClick reagieren?

Deinen Quelltext folgender maßen anpassen:

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
a : TMenuItem;
sl : TStringList;
i : integer;
begin
  sl :=TStringList.Create;
  sl.LoadFromFile(ExtractFilePath(ParamStr(0))+'daten\gruppen.txt');
  sl.Add('Alle Gruppen');
  for i := 0 to SL.Count - 1 do
   begin
    a := TMenuItem.Create(Self);
    a.Caption := SL[i];
    a.Hint    := SL[i];
    // Hier neu
    a.OnClick := MenuItemClick;
    // ende neu
    PopUpMenu1.Items.Add(a);
   end;
  sl.free;
end;

und dann die methode von marabu

Zitat von marabu:

Delphi-Quellcode:

procedure TDemoForm.MenuItemClick(Sender: TObject);
begin
  with Sender as TMenuItem do
    // mach was du willste mit Caption
end;

Dann geht sollte es gehen