Event Pfad an MenuItem übergeben (Problem)

[IMPEGA]

Pause hin oder Pause her.

Die Lösung ist genauso, wie ich es mir gedacht habe.
Schade, dass ich die Frage nicht klar genug definiert habe, oder Ihr es nicht so verstanden habt, wie ich es gemeint habe.

Nun, das ist die Lösung. Einfach und doch sehe effektiv.

Delphi-Quellcode:

type
  TMenuItemExtended = class(TMenuItem)
  private
    fOrdner: string;
  published
    property Ordner : string read fOrdner write fOrdner;
  end;

Ich erweitere die Class halt um einen Parameter (fOrdner)
Jetzt ist alles wieder einfach

Hier, nur das Relevante

Delphi-Quellcode:

Item            := TMenuItemExtended.Create(PopupMenu1) ;
Item.Caption    := Titel ;
Item.Ordner     := ExtractFileName(Directory);   --> HIER HABE ICH MEINEN STRING, DEN ICH PER SENDER WEITER GEBEN WILL
Item.OnClick    := PopupClick;
ImageList16x16.Add(Bitmap, nil);
Item.ImageIndex := ImageList16x16.Items.Count - 1;
PopupMenu1.Items[ItemIndex].Add(Item);

Und im Event übernehme ich den Ordner

Delphi-Quellcode:

  
MenuItem  := TMenuItemExtended(Sender);                          
LnkFolder := Path + MenuItem.Ordner;

Schwer war es nicht wirklich, nur den richtigen Ansatz muss man haben.

@BerndS
mag sein, dass du gut bist und gerne hilfst, bei mir hat aber deine Unterstützung 0 geholfen.


@himitsu
Danke, danke. Leider war der Tipp mit .tag nicht die Lösung, diese Art Antworten motivieren allerdings zum Recherchieren und nach Lösungen zu suchen.
Von Idee her habe ich es nämlich schon richtig erkannt.
Deine Ansätze habe ich alle umgesetzt, Code so weit ich es konnte, korrigiert. Sogar solche Kleinigkeit wie "ContainsStr", obwohl ich es nicht wirklich als Vorteil sehe.

[itsChris]

Schön, dass du eine Lösung gefunden hast.
Letztendlich hast du den Vorschlag von @BerndS umgesetzt: Du hast TMenuItem abgeleitet, deine benötigte Eigenschaft (Ordner) hinzugefügt und greifst im OnClick auf den MenuItem.Ordner zu.

[IMPEGA]

Mag sein, jedoch habe ich auch geschrieben, dass ich nichts davon verstanden habe, was er geschrieben hat.
Diese Art hilft (Nicht Profis) so gut wie gar nichts. Man kann damit eben NICHTS anfangen.
Ich habe den Post ehrlich gesagt einfach ignoriert, auch wenn die Lösung genau dem entspricht, habe ich es nicht aufgrund dessen gefunden.
Nach seinem Ansatz habe ich nämlich gar nicht gesucht. Wie denn, wenn man nicht versteht, was gemeint ist? Wenn man kein Profi ist, kann man nicht wirklich als Profi denken.

Einfache Erklärungen und nach Möglichkeit ein einfaches Codebeispiel zum Analysieren.
Das hätte mir sofort geholfen.

Trotzdem DANKE an alle Beteiligten. Ich habe es gelöst. Das zählt für mich am meisten.