Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];
ВнизКак 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"а!!!
Игорь Шевченко, спасибо!
← →
JC (2002-06-27 17:10) [4]Fiend
> У попа есть метод Popup(x,y).
> вот и вызови его с координатами, где нада сам подвычислиш
> координаты
О Popup я знаю, а вот с координатами труднее, они же относительно Desktop"а!!!
Игорь Шевченко, спасибо!
← →
Volj (2002-06-27 17:41) [5]Координаты: ScreenToClient и ClientToScreen
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c