Delphi-PRAXiS
Seite 1 von 2  1 2      

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 TToolbutton Menü OnPopup (https://www.delphipraxis.net/117387-ttoolbutton-menue-onpopup.html)

ralfschwalbe 17. Jul 2008 08:46


TToolbutton Menü OnPopup
 
Hallo,

ich habe auf einer Form eine ToolBar mit mehreren ToolButtons und einem PopupMenu. Einem ToolButton ist ein MenuItem (welcher mehrere MenuItems enthält) zugewiesen. Beim PopupMenu wird in OnPopup Code ausgeführt, der einige MenuItems enabled oder disabled. Beim Klick auf den ToolButton wird allerdings kein OnPopup aufgerufen (ist in ComCtrls bei TToolBar und TToolButton gar nicht vorgesehen)!

Gibt es einen Trick mit dem man OnPopup trotzdem aufrufen kann, wenn der entsprechende ToolButton geklickt wird?

Diamondback2007 17. Jul 2008 09:37

Re: TToolbutton Menü OnPopup
 
Ruf das Popup doch einfach im Onclick per Hand auf mit .PopUp();

ralfschwalbe 17. Jul 2008 09:50

Re: TToolbutton Menü OnPopup
 
Hab ich schon versucht... aber leider wird auch OnClick nicht aufgerufen, wenn dem ToolBotton ein MenuItem zugewiesen ist.

Hätte ich vorhin noch erwähnen sollen...

ralfschwalbe 18. Jul 2008 06:41

Re: TToolbutton Menü OnPopup
 
Keiner eine Idee? :(

marabu 18. Jul 2008 07:32

Re: TToolbutton Menü OnPopup
 
Moin Ralf,

entweder hat sich seit Delphi7 etwas geändert oder du selbst verhinderst den Aufruf deines event handlers für das Ereignis OnPopup(). Bei mir funktioniert alles wie es soll.

Freundliche Grüße

ralfschwalbe 18. Jul 2008 07:44

Re: TToolbutton Menü OnPopup
 
Hi,

dann hat sich was geändert. Ich habe Delphi 2007. Dort steht auch in der ComCtrls.pas nichts mehr von OnPopUp... :(

Und da OnClick auch nicht ausgeführt wird, weiß ich nicht so recht weiter.

@marabu

Hinweis: Hast Du auch wirklich nur ein Menuitem (welches SubItems enthält!!!) zugewiesen und nicht das ganze Popupmenu?

marabu 18. Jul 2008 08:11

Re: TToolbutton Menü OnPopup
 
Ich habe das PopupMenu an die Eigenschaft DropDownMenu des ToolButton. Beim Ereignis OnPopup() des PopupMenu wird mein dort hinterlegter Code ausgeführt.

Kalfany 18. Jul 2008 08:24

Re: TToolbutton Menü OnPopup
 
Liste der Anhänge anzeigen (Anzahl: 1)
Ich versteh nicht ganz was du haben willst, so wie im Anhang oder anders?

[edit]ah jetzt hab ichs kapiert :D, dann ist ja so wies im Anhang ist falsch[/edit]

ralfschwalbe 18. Jul 2008 08:47

Re: TToolbutton Menü OnPopup
 
Ich erläutere nochmal...

Ich habe KEIN PopupMenü welches ich im Ganzen an die Eigenschaft Dropdownmenu hängen will.

Ich habe ein Popupmenü mit ca. 10 Items. 3 davon haben nochmal Subitems. Ich möchte nun einen Eintrag (MenuItem des PopupMenus) mit den Subitems der Eigenschaft MenuItem des Toolbuttons zuweisen. Das funktioniert auch, es wird ein Menü angezeigt, welches NUR die SubItems des einzelnen MenuItems anzeigt. Aber genau dann wird KEIN OnPopup aufgerufen.

Ganz schön verzwickt, oder? :?

marabu 18. Jul 2008 08:57

Re: TToolbutton Menü OnPopup
 
Entschuldige Ralf, ich habe deine Problembeschreibung zu oberflächlich gelesen.

Ich habe jetzt der Eigenschaft MenuItem des ToolButton ein Submenu zugewiesen. Beim Anklicken des ToolButton wird mein Code für das Ereignis OnClick() des Submenus ausgeführt.

Das müsste doch für deine Zwecke ausreichend sein, oder?

Freundliche Grüße


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:10 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz