[poli-smen]

Сообщение от DOR

На просторах инета как то находил код. он определял координаты буттона и под ним выводил ПопупМеню. Если кто сталкивался с таким, напишите пжл код или дайте ссылся. Спасибо.

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

Код:

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;