Как PopupMenu показать прямо под Edit ом?

← →
JC © (2002-06-27 16:31) [0]

^ ^ ^ ^ ^

← →
Fiend © (2002-06-27 16:46) [1]

У попа есть метод Popup(x,y).
вот и вызови его с координатами, где нада сам подвычислиш координаты

← →
Игорь Шевченко © (2002-06-27 16:48) [2]

TPopupMenu.Popup

Displays the pop-up menu onscreen.

procedure Popup(X, Y: Integer); virtual;

Description

Call Popup to bring up the pop-up menu. The menu appears at the screen coordinates indicated by the values (in pixels) of X and Y.

Х и Y - устанавливаются в координаты левого нижнего угла Edit.

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
P : TPoint;
begin
if ssRight in Shift then begin
P := Edit1.Parent.ClientToScreen (Point(Edit1.Left, Edit1.Top + Edit1.Height));
PopupMenu1.Popup (P.X, P.Y) end;
end;
end.

У PopupMenu1 свойство AutoPopup установлено в false

← →
JC © (2002-06-27 17:10) [3]

Fiend

> У попа есть метод Popup(x,y).
> вот и вызови его с координатами, где нада сам подвычислиш
> координаты

О Popup я знаю, а вот с координатами труднее, они же относительно Desktop"а!!!
Игорь Шевченко, спасибо!

Координаты: ScreenToClient и ClientToScreen

Как PopupMenu показать прямо под Edit ом? Найти похожие ветки