Event Pfad an MenuItem übergeben (Problem)

[BerndS]

Hallo, du könntest auch TMenuItem ableiten und die Felder hinzufügen, die du benötigst.
Beim Hinzufügen verwendest du diese Klasse und hast dann im OnClick direkten Zugriff auf Informationen, die du benötigst.

[IMPEGA]

@BerndS
leider ist deine Antwort zu allgemein, damit kann ich NOCH nichts anfangen.

@himitsu
Nur noch eine Frage zum .Tag
Da ich nicht weiß wie viele Unterordner und wie viele Verknüpfungen in jedem Ordner vorhanden sind, kann ich schlecht eine For Schleife benutzen.
In jedem Unterordner wird eigene For Schleife benutzt.

ABER
Global Index : Integer;

Nun einfach fortlaufend eine Liste mit .lnk erstellen, gleichzeitig jedem Item eine .Tag Nummer vergeben, einfach mit Index := Index + 1;
Damit hätte ich zu jeder Tag.Nummer eine Adresse.
War es so gemeint?

Gefallen tut es mir nicht wirklich, wäre aber auch eine Lösung.

[Sinspin]

Ich glaube Du solltest mal einen Tag Pause machen. Sieht bisschen so aus als wenn Du dir gerade selber im weg bist.
Du kannst faktisch mit allem arbeiten, Stringliste, generische (generics TList) Liste oder eben einen StringGrid oder eine Tabelle, etc.
Es kommt nur drauf an wie man die Daten in den Listen parkt um alles unterzubekommen.
Alle Listen haben automatisch einen Index für jeden Eintrag den Du in deinem Tag verwenden kannst.

Und nein, ich bin nicht Himitsu, aber ich denke wir sehen das beide gleich

[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.