Home » Tipps & Tricks » Komponenten » Menüs » Popupmenu aufklappen

Popupmenu aufklappen

Mit der Methode Popup kann man das Kontextmenü per Programmcode aufklappen lassen.Die Position des Menüs wird absolut zur linken, oberen Bildschirmecke angegeben. Um das Menü so aufklappen zu lassen, daß sich die linke, obere Ecke des Menüs in der Mitte des Button1 befindet, kann folgender Quelltext benutzt werden.

procedure TForm1.Button1Click(Sender: TObject);
var
  P: TPoint;
begin
  P := ClientToScreen(Point(Button1.Left + Button1.Width div 2,
                            Button1.Top + Button1.Height div 2));
  PopupMenu1.Popup(P.X, P.Y);
end;