[M.A.D.M.A.N.]

Сообщение от poli-smen

Примерно так:

Код:

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

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  pt: TPoint;
begin
  with Sender as TButton do
  begin
    pt := Point(Left, Top + Height);
    pt := Parent.ClientToScreen(pt);
  end;
  PopupMenu1.Popup(pt.X, pt.Y);
end;