Du könntest auch einen ganz kleinen Speedbutton mit dem Glyph eines kleinen Dreiecks (Spitze nach unten) auf das Control setzen (irgendwo an den Rand/Ecke).
Klickt der Benutzer drauf, öffnet sich das Popupmenu.
Delphi-Quellcode:
procedure ShowPopupMenu(control: TControl);
begin
control.Perform(WM_CONTEXTMENU, 0, Integer(PointToSmallPoint(control.ClientToScreen(Point(2, 2)))));
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ShowPopupMenu(sender as TControl);
end;