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

[DOR]

Нет, тоже самое появляется, но с большими отклонениями вниз и вправо.

[poli-smen]

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

Нет, тоже самое появляется, но с большими отклонениями вниз и вправо.

Ну и дела...
Распакуй и запусти пример во вложении, и понажимай там кнопки.

[DOR]

Блин, я просто забыл выставить свойство стартового положения вызываемой формы. а к компонентами на форме такой номер пройдет?например с грид или с комбобокс.

[poli-smen]

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

Блин, я просто забыл выставить свойство стартового положения вызываемой формы. а к компонентами на форме такой номер пройдет?например с грид или с комбобокс.

Если правильно сделать, то можно

[DOR]

poli-smen, подскажите пожалуйта, как

[poli-smen]

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

poli-smen, подскажите пожалуйта, как

Если у компонента который должен выскакивать под кнопкой будет тот же Parent, что и у кнопки, то не нужно делать приведение координат через ClientToScreen. Будет примерно так:

Код:

var
  bt: TJvSpeedButton;
begin
  bt := Sender as TJvSpeedButton;
  Grid1.Top := bt.Top + bt.Height;
  Grid1.Left := bt.Left;
end;

Или например можно чтобы у "выскакивающего" компонента Parent-ом была сама форма и перемещать этот компонент в самый верх через BringToFront.

[DOR]

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

Если у компонента который должен выскакивать под кнопкой будет тот же Parent, что и у кнопки, то не нужно делать приведение координат через ClientToScreen. Будет примерно так:

Код:

var
  bt: TJvSpeedButton;
begin
  bt := Sender as TJvSpeedButton;
  Grid1.Top := bt.Top + bt.Height;
  Grid1.Left := bt.Left;
end;

Или например можно чтобы у "выскакивающего" компонента Parent-ом была сама форма и перемещать этот компонент в самый верх через BringToFront.

оно самое. спасибо.