Startbutton mit Menu oberhalb

[mschaefer]

Moin zusammen,

suche eine Möglichkeit ein Popupmenu so aufgehen zu lassen, dass es exakt am oberen Rand eines Buttons andockt. Die Anzahl der Menüeinträge und Trennbalken kann dabei im Menü variieren. Es ist mir bisher nich möglich das so hinzubekommen, dass es sozusagen andockt, da das Menu nach unten aufgeht und man immer nur grob abschhätzen kann wie hoch es dann ist. Irgendwelche Ideen / Komponenten oder Links?


Grüße // Martin

[tigerman33]

Zu dem Zeitpunkt, wo du das Menü "up-poppen" lässt, muss doch feststehen, wieviele Einträge es hat, oder? Und die Höhe der einzelnen Zeilen ist konstant.

[mschaefer]

Tja, das ist so, bis auf die Trennlinien. Also muß man auch die Trennlinen zählen. Mal probieren (( Martin

[Lannes]

Hallo,

Delphi-Quellcode:

var pos : TPoint;
    i,z : Integer;
begin
  i := 0;
  for z := 0 to PopupMenu1.Items.Count-1 do
    if TMenuItem(PopupMenu1.Items[z]).Caption = '-' then
      inc(i,9)
      else
        inc(i,17);
  pos.x := Button1.Left;
  pos.y := Button1.Top-i-(2*3);
  pos := Form1.ClientToScreen(Pos);
  PopupMenu1.Popup(Pos.x,pos.y);
end;

[mschaefer]

Hallo Lannes,

ja sowas ähnliches hatte ich inzwischen auch gebaut, aber Du hast es sogar mit einer Variable weniger geschaft. Ein Danke in die Stadt der Glocken. Bei Meinem Code fällt mir auf, dass die Verschiebezahlen größer sind. Da ist dann die Schriftgröße noch ein Variabler Faktor. Das werde ich die Tage mal ausprobieren.

Danke Euch beiden und Viele Grüße // Martin

[Lannes]

Hallo,

eventuell hilft Dir das:

Delphi-Quellcode:

GetSystemMetrics(SM_CYMENUSIZE);