[poli-smen]

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

работает,но форма появляется не под кнопкой, а правее и ниже нее.

А так?:

Код:

var
  pt: TPoint;
  bt: TJvSpeedButton;
begin
  bt := Sender as TJvSpeedButton;
  pt := bt.Parent.ClientToScreen(Point(bt.Left, bt.Top + bt.Height));
  forma1.Top := pt.Y;
  forma1.Left := pt.X;
  forma1.Show;
end;