procedure TForm1.SpeedButton1Click(Sender: TObject); var p:tpoint; begin p:=ClienttoScreen(point(Button1.Left,Button1.Top+Button1.Height)); PopupMenu2.Popup(p.X,p.y); end;
procedure TForm1.SpeedButton1Click(Sender: TObject); var p:tpoint; begin p:=ClienttoScreen(point(Button1.Left,Button1.Top+Button1.Height)); PopupMenu2.Popup(p.X,p.y); end;