Startbutton mit Menu oberhalb

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