[DOR]

Добрые вечер, подскажите пожалуйста, как нужно преобразовать код, чтобы при нажатии на кнопку или комбобокс форма появлялась под ними

Код:

procedure Tf_ABP.sbt_DeleteClick(Sender: TObject);
var
pt: TPoint;
begin
  with Sender as TJvSpeedButton do
  begin
    pt := Classes.Point(Left, Top + Height);;
    pt := Parent.ClientToScreen(pt);
  end;
  PopupMenu2.Popup(pt.X, pt.Y);
end;

[poli-smen]

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

Добрые вечер, подскажите пожалуйста, как нужно преобразовать код, чтобы при нажатии на кнопку или комбобокс форма появлялась под ними

Положение формы - свойства Left и Top, показать форму - метод Show.

[DOR]

Код:

procedure Tf_ABP.sbt_DeleteClick(Sender: TObject); 
var
t: TPoint; 
 begin  
  with Sender as TJvSpeedButton do  
   begin    pt := Classes.Point(Left, Top + Height);     
              pt := Parent.ClientToScreen(pt);   
   end;   
   forma1.top := pt.Y;
   forma1.left := pt.X;
   forma1.show;
end; 

Так?

[poli-smen]

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

Код:

...
   forma1.top := pt.Y;
   forma1.left := pt.X;
   forma1.show;
end; 

Так?

А разве не работает?

[DOR]

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

[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;