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