[VCL] Benutzer DropDown Menü

[Aviator]

Hallo Delphianer,

der Titel ist vielleicht nicht so besonders aussagekräftig, aber ich versuche mal das etwas zu erklären.

Viele Programme haben ja zur Zeit ein Menü das sich über den Klick auf den Benutzernamen (meist oben rechts in der Ecke) öffnen lässt. Das ganze sieht dann etwa so aus:



Jetzt ist meine Frage, wie ich so etwas in Delphi am besten hinbekomme. Habe das Gefühl, dass ein einfaches Popupmenü an dieser Stelle nicht das Richtige ist. Da kann man zwar auch viel bzw. alles mit Owner Draw machen, aber irgendwo denke ich, dass das nicht so richtig passt.

Wie könnte man das umsetzen. Bin für jeden Vorschlag dankbar. Wenn möglich würde ich für diesen Fall nur Standardkomponenten nutzen wollen. Eine eigene Komponente erstellen würde zwar funktionieren, aber das dauert auch dementsprechend lange.

Kombiniert werden soll das nachher mit einem Label. Bei Klick auf das Label soll sich das Menü öffnen.

[mkinzler]

http://www.alphaskins.com/alite.php
http://stackoverflow.com/questions/8...in-menu-button
http://www.delphipraxis.net/163957-t...mentell-2.html

[Aviator]

Hallo Markus,

mir ging es weniger um den Button als um das Menü das danach aufklappt. Als "Button" verwende ich wie in #1 erwähnt ein Label mit einem kleinen Pfeil nebendran.
Nur habe ich aktuell keine Vorstellung davon wie ich so ein Menü am einfachsten zeichnen bzw. welche native Komponente ich dafür verwenden kann.

[EWeiss]

Auf den Label klicken und darunter ein Popup Menu öffnen.

Zitat:

Habe das Gefühl, dass ein einfaches Popupmenü an dieser Stelle nicht das Richtige ist.

Warum das nicht das richtige ist entschließt sich mir.

gruss

[Aviator]

Zitat von EWeiss:

Auf den Label klicken und darunter ein Popup Menu öffnen.

Zitat:

Habe das Gefühl, dass ein einfaches Popupmenü an dieser Stelle nicht das Richtige ist.

Warum das nicht das richtige ist entschließt sich mir.

gruss

Naja. Ich hätte gerne einen etwas flacheren Effekt wie das im Screenshot zu sehen ist. Ein PopupMenu steht ja immer so ein bisschen über der Form mit einem 3D Effekt. Das gefällt mir in dem Zusammenhang aber irgendwie nicht.

Klar, es wäre das Einfachste wie man es umsetzen kann. Aber das Auge isst kuckt ja bekanntlich mit.

[EWeiss]

Zitat:

Klar, es wäre das Einfachste wie man es umsetzen kann. Aber das Auge isst kuckt ja bekanntlich mit.

Logisch ist ja mein sagen

Dann wird dir ohne fremde Komponente wohl nur übrigbleiben mit Ownerdraw zu arbeiten.
http://www.delphipraxis.net/1346080-post1.html

gruss

[Papaschlumpf73]

Sowas mache ich immer mit einer Toolbar. Einen ToolButton mit Style=tbsDropDown drauf und dessen Eigenschaft DropDownMenu mit einem ganz normalen PopupMenu verknüpfen.

Dann hat der Schalter gleich einen Pfeil zum aufklappen und das PopupMenu geht direkt unter dem Schalter auf und muss nicht positioniert werden.

[Aviator]

Naja mit einem PopupMenü wollte ich es ja wie bereits geschrieben nicht machen.

Ich glaube ich werde dafür ein Frame erstellen und das dann mit Panels befüllen. Da kann man ja dann BevelOuter auf bvNone setzen und dann hat man auch keine Ränder/3D Effekte mehr.

Mal schauen wie das dann später aussieht.

[stahli]

Wenn Du nicht an rechteckige Formen gebunden sein willst, kannst Du auch Formen "ausstanzen".
-> http://www.delphipraxis.net/159798-t...-mit-loch.html

[EWeiss]

Notfalls mit GetClipBox den Rahmen des Popup Menu selber flach zeichnen.
Wenn du keine andere Lösung findest.

gruss