Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Mehrere Kontextmenüs ein einem TreeView (https://www.delphipraxis.net/48100-mehrere-kontextmenues-ein-einem-treeview.html)

DannyK.II 20. Jun 2005 19:55


Mehrere Kontextmenüs ein einem TreeView
 
Ich weiß ja nicht, ob ich total verblödet bin, aber ich finde weder eine Lösung, noch einen Beitrag hier im Forum. Aaalsoo:

Ich möchte in einem TreeView 2 verschiedene Kontextmenüs verwenden: Eins für die Items selbst, das sind bei mir Gruppen von Usern (Hier wäre so etwas wie "Kontakt hinzufügen" usw nötig), ein zweites für die Subitems (also die User selbst, "User löschen" o.Ä.).

Ein Menü an sich ist ja kein Problem, geht ja ganz schön über den ObjectInspector. Müsste ich das bei mehreren über OnClick machen? (Vielelicht bin ich auch einfach blind? :duck: )

Hm.. fällt mir grad ein, ich könnt auch noch ein drittes gebrauchen :P
Aber ändert ja nichts an der Sache.

So, hoffe ihr versteht mein Problem und könnt mir behilflich sein...

omata 20. Jun 2005 20:00

Re: Mehrere Kontextmenüs ein einem TreeView
 
Moin,

leg einfach zwei PopupMenu-Komponenten (PopupMenuUser, ...) auf deine Form und weise im OnChange-Ereignis des TreeView einfach abhängig vom ausgewählten Objekt das jeweilige PopupMenu über z.B. TreeView.PopupMenu:=PopupMenuUser zu.

MfG
Thorsten

ltiefland 20. Jun 2005 20:08

Re: Mehrere Kontextmenüs ein einem TreeView
 
Versuche es mal so:

Delphi-Quellcode:
  if Node.Level=0 then
  begin
    TreeView1.PopupMenu:=PopupMenu1;
  end
  else
  begin
    if Node.Level=1 then
    begin
      TreeView1.PopupMenu:=PopupMenu2;
    end
    else
    begin
      TreeView1.PopupMenu:=PopupMenu3;
    end;
  end;
Diesen Code gibst Du in eine Routine für das Ereignis "OnGetSelectedIndex" des Treeview ein.

DannyK.II 20. Jun 2005 20:12

Re: Mehrere Kontextmenüs ein einem TreeView
 
Danke, das kommt dem ganzen schon sehr nah. einziges Problem: Um das Node 0 Menü zu erhalten müsste ich im Idealfall auf ein Node 0 Item klicken. Hier muss ich erst wieder die Ebene wechseln, in dem ich alle Trees zumache. Mal schauen, was ich da machen kann.

Aber schonmal vielen Dank


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:53 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 by Thomas Breitkreuz