Markiertes MainMenu-Item in Label ausgeben

**IcyVeins**

Also,
nachdem ich die tolle Idee hatte, irgendwie ein OnClick in das dynamisch erstellte Menü zu hauen, bin ich zu dem Schluss gekommen, dass ich es auf nem anderen Weg versuchen sollte ( Ja, ich mach das noch nicht lange

). Also würde ich gerne die Caption des markierten Menü-items in ein Label ausgeben und dann ein globales OnClick mit ein paar Abfragen verwenden...
Hier mal der Code zum erzeugen des Menüs... Wenn mir jemand genau erklären könnte, wie ich es mit ner direkten OnClick-Abfrage hinbekomme, wär ich natürlich auch nicht abgeneigt

Über den Code:
Er dient dazu, die Ordnerstruktur eines Verzeichnisses in ein Menü zu packen, so wie die Windows Startleiste...

zusammenfalten · markieren

Delphi-Quellcode:

			Procedure CreateTreeMenus( Path : String; Root : TMenuItem );

Var

   SR     : TSearchRec;

   Result : Integer;

   Item   : TMenuItem;

Begin

    Path := IncludeTrailingBackSlash( Path );

    Result := FindFirst( Path + '*.*', faDirectory, SR );

    While ( Result = 0 ) Do Begin

        If ( ( ( SR.Attr And faDirectory ) <> 0 ) And ( SR.Name <> '.' ) And ( SR.Name <> '..' ) ) Then Begin

            Item := TMenuItem.Create(Item);

            Item.Caption := SR.Name;

            Root.Add( Item );

            CreateTreeMenus( Path + SR.Name, Item );

        End;

        Result := FindNext( SR );

    End;

    SysUtils.FindClose( SR );

End;

Markiertes MainMenu-Item in Label ausgeben

Markiertes MainMenu-Item in Label ausgeben

Forumregeln