Problem mit ClientToScreen

[sh17]

Du musst immer von Parent des Button ausgehen:

liegt mein Button z.B. im Panel panel1, dann

Delphi-Quellcode:

var
  p : TPoint;
begin
  p := panel1.ClientToScreen(Point(Button1.Left,Button1.Top+Button1.Height));
  PopUpmenu1.Popup(p.X,p.Y);