AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Event Pfad an MenuItem übergeben (Problem)
Thema durchsuchen
Ansicht
Themen-Optionen

Event Pfad an MenuItem übergeben (Problem)

Ein Thema von IMPEGA · begonnen am 23. Apr 2025 · letzter Beitrag vom 25. Apr 2025
Antwort Antwort
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.549 Beiträge
 
Delphi 12 Athens
 
#1

AW: Event Pfad an MenuItem übergeben (Problem)

  Alt 23. Apr 2025, 22:52
Eigentlich geht vieles immernoch, selbst im Kontextmenü des Explorer/Windows.
  • Auch in das neue Menü kann man seine Programme reinhängen (nur bissl umständlicher),
  • auch lässt sich das neue Menü deaktivieren und wieder das Alte nutzen (dauerhaft),
  • oder es lässt sich temporär umschalten
    • im Menüpunkt "Weitere Optionen anzeigen"
    • oder einfach Shift drücken, wärend des Öffnen (Rechtsklick, bzw. Kontextmenütaste)
Mir war so, als wenn komisch verlinkte Verzeichnisse/Dateien/SymLinks immernoch gingen.



PS:
Zitat:
Datei.Attr <> faDirectory
Wenn mehr als nur ein Attribut vorkommt (z.B. noch zusätzlich Hidden, Archive, Readonly, ...),
dann funktioniert das so nicht!
Datei.Attr and faDirectory <> 0 , bzw. hier mit = anstatt <>
oder not (Datei.Attr and faDirectory <> 0)

Alternativ kannst du auch erstmal alle anderen Attribute rausfiltern und dann vergleichen
Datei.Attr and faDirectory <> faDirectory)
Datei.Attr and faDirectory = faDirectory)
Aber mit <>0 und = 0 ist es kürzer, übersichtlicher und ohne Doppelung.


AnsiLastChar mit +'\'
Delphi-Referenz durchsuchenIncludeTrailingPathDelimiter

Und ansonsten kann es nicht schaden den Code "sprechender" zu machen, so er von selbst sagt, was gemeint ist

Pos() > 0
Delphi-Referenz durchsuchenContainsStr, bzw. Delphi-Referenz durchsuchenContainsText

Ja, bezüglich ToUpper und Co., stattdessen die TEXT-Varianten.

Pos() = 0
not ContainsStr

sowie AnsiLastChar
Delphi-Referenz durchsuchenEndsStr / Delphi-Referenz durchsuchenEndsText

Zitat:
if MenuItem.Caption = 'Close' then
Statt einem String besser die Komponenten-Variable verwenden (Wie ist das MenuItem im FormDesigner benannt?),
oder das "Tag" lässt sich auch schön nutzen.

Rate mal was passiert, wenn ausversehn die Option für automatische ShortCuts aktiv ist und "irgendwo" im String ein & enthalten ist,
oder wenn mal jemand mit Lokalisierung rumspielen möchte.
(dann sagt das = NÖ dazu)


Psssst, ist dir aufgefallen, dass niemand IconOK verwendet?
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (23. Apr 2025 um 22:57 Uhr)
  Mit Zitat antworten Zitat
IMPEGA

Registriert seit: 19. Jan 2008
Ort: Brhv
110 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: Event Pfad an MenuItem übergeben (Problem)

  Alt 23. Apr 2025, 23:26
Danke für die Ansätze, ja man kann einiges verbessern, meine Frage nach dem Event hast du aber nicht mal angesprochen.
Mit Win komme ich klar, dass man altes Menü (Das ist schon lange passiert bei mir) zurückholen kann ist mir auch geläufig.
Das ist aber nicht meine Frage. ich erstelle mir ein Menü, rechts unten, für den schnellen Zugriff. Dort parke ich nur portable Programme.
Es dient meiner Bequemlichkeit.

Natürlich sind die anderen Sachen für mich auch relevant, allerdings verstehe ich nicht was zB. gehen Pos sprechen soll? Nicht alles, was alt ist, ist doch gleich schlecht.
Ich mag mich zwar verbessern, für meine Zwecke mag ich aber nicht immer neue Sachen lernen. Das Nötige soll eben reichen.
Ein Pos, funktioniert allerdings nach wie vor. Bitte nicht falsch verstehen, ich verstehe es manchmal aber nicht wirklich, warum man alles umkrempeln muss, nur weil Emba etwas geändert hat?
Mit Pos habe ich schon immer gearbeitet, es sitzt halt im Kopf. Bis vor Kurzen habe ich nur mit Delphi 7 gearbeitet.

Supi finde ich zB : IncludeTrailingPathDelimiter
Obwohl meine Art auch funktioniert hat.



Zitat:
wenn ausversehn die Option für automatische ShortCuts aktiv ist
Das habe ich schnell erfahren und bewusst abgeschaltet, also passiert es aus Versehen nicht.

Ich nehme aus deinem Post ganze menge mit, werde es auch teils umsetzen, meine Frage nach dem Event bleibt aber immer noch bestehen.
Ich möchte den Namen von dem Verzeichnis, welches zu Runtime erfasst wurde, an das Event übergeben.
Das Ganze funktioniert nämlich schon sehr gut, nur gefallen tut es mir nicht. Ich könnte auch den Pfad in Item.Caption schreiben, danach splitten, darum geht es mir aber nicht.
Eine Eventlösung wäre mir lieber. Schon alleine, weil es mich interessiert.


Edit: IconOK ist wohl Überbleibstel, kommt weg

Geändert von IMPEGA (24. Apr 2025 um 08:15 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Sinspin
Sinspin

Registriert seit: 15. Sep 2008
Ort: Dubai
749 Beiträge
 
Delphi 10.3 Rio
 
#3

AW: Event Pfad an MenuItem übergeben (Problem)

  Alt 24. Apr 2025, 09:17
Hey, das Menu ist generell nicht der richtige Ort um Daten zu parken. Was anderes als "Tag" brauchst Du aber auch nicht.
Speicher deine Informationen doch einfach in einem StringGrid. Der bekommt ein weiteres Feld "Index" das Du durchnummerierst.
Dann kannst Du mit Hilfe von "Tag" den "Index" finden in dem die Daten stehen die Du brauchst.

Eigentlich wäre eine MemTable besser, aber wenn Du schreibst, "Hobby", will ich Dich ja nicht gleich mit Profisachen plätten.
Stefan
Nur die Besten sterben jung
A constant is a constant until it change.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.549 Beiträge
 
Delphi 12 Athens
 
#4

AW: Event Pfad an MenuItem übergeben (Problem)

  Alt 24. Apr 2025, 09:54
Es hatte aber auch niemand geschrieben wo genau das früher war.

Ich weiß zwar noch, dass man z.B. irgendwo eine GUID registrieren konnte, welche sich dann als Dateiname eines Verzeichnisses nutzen und so irgendwas verlinkten kann und das sollte auch immernoch möglich sein. (für Weiteres müsste ich auch erst wieder danach suchen)


Beim .Tag oder .Objects in ListenKomponenten
kann man Werte (Integer) angeben oder z.B. ein Datenobjekt verlinken.
Ebenso kann man eine eigene Liste/Dictionary erstellen und mit Objektzeigern oder Name entsprechend was zu seinen Komponenten abspeichern.

Wir haben TMenuItem abgeleitet und es gibt zusätzlich nochmal so was wie .Tag für String und Variant.

Bei Menüs/Links im Dateisystem kann man ein Programm/Pfad angeben, teilweise/eventuell mit Parameter(n).
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (24. Apr 2025 um 10:07 Uhr)
  Mit Zitat antworten Zitat
IMPEGA

Registriert seit: 19. Jan 2008
Ort: Brhv
110 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#5

AW: Event Pfad an MenuItem übergeben (Problem)

  Alt 24. Apr 2025, 13:27
Danke für die Ansätze.
Ich werde mal mit .Tag versuchen. Mal schauen, wie es zu machen ist. Das kriege ich aber schon hin.
Jetzt muss ich erst das Geschriebene umsetzen, danach sehen wir weiter.

Noch mal, vielen Dank.
  Mit Zitat antworten Zitat
IMPEGA

Registriert seit: 19. Jan 2008
Ort: Brhv
110 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#6

AW: Event Pfad an MenuItem übergeben (Problem)

  Alt 25. Apr 2025, 09:23
Ich habe gestern, versucht es mit .tag irgendwie zu realisieren.
Es gibt nur die Möglichkeit, mit dem Integer zu arbeiten.
Das kriege ich so nicht hin.

Mein Problem ganz kurz erklärt.
Ich erfasse die .lnk Dateien, die lese ich aus, erfasse den Namen von der exe Datei und natürlich den Pfad zu der Datei.
Befindet sich die .lnk Datei in einem Unterordner, wird ein Untermenü mit dem Namen des Ordners erstellt.
Menüeinträge entsprechen den Unterordnernamen bzw.den Namen der .lnk Datei, allerdings ohne Erweiterung "lnk"
Und hier ist das Problem. Wenn ich den Event auslöse, kann ich nicht erkennen, ob es ein Programm oder nur ein Unterordner ist.
Mein Pfad wird global gesetzt, also brauche ich es nicht zu erfassen, allerdings den Namen des Unterordners muss ich im Event haben.
Die Idee war, einfach den Namen des Unterordners an mein Event zu übergeben. Damit hätte ich den Namen (Caption) und die Location (Pfad + Unterordner).
Ich habe alles probiert, mit dem Event von MenuItem kriege ich es nicht hin.

Nun frage ich mich, ob man es nicht irgendwie über ein eigenes Event umbiegen kann.
Dazu muss ich aber erst ein wenig lesen.

Tipps, wie man eigene Events erstellt (einfach erklärt) wären super.
  Mit Zitat antworten Zitat
BerndS

Registriert seit: 8. Mär 2006
Ort: Jüterbog
498 Beiträge
 
Delphi 12 Athens
 
#7

AW: Event Pfad an MenuItem übergeben (Problem)

  Alt 25. Apr 2025, 10:41
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.
Manche wissen gar nicht, dass man gar nicht gar nicht zusammenschreibt.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz