Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];

Вниз

Popup Menu и его координаты   Найти похожие ветки 

← →
Sphinx ©   (2004-03-14 09:36) [0]

Столкнулся тут с такой проблемой, надо что бы при нажатии на нужную мне кнопку левой клавишей (!!!) рядом всплывало менюшка. Сделал так:

кинул на форму PopupMenu, убрал в его свойствах автоматическое всплытие, кпривязал к кнопке (навсякий случай) и определил такую процедуру:

procedure MainForm.PopupButton.onClick
begin
 PopupMenu.Popup(MainForm.Top+PopupButton.Top, MainForm.Left+PopupButton.Left);
end;

То есть получилось, что для всплытия меню рядом с кнопкой мне нужно указать "абсолютные" координаты всплытия (нашел опытным путем), а можно оперировать не "абсолютными" координатами, а относительными, то есть оставить только PopupMenu.Popup(PopupButton.Top, PopupButton.Left); или вообще как-нибудь подругому указывать всплытие менюшки.

---

← →
ssk   (2004-03-14 09:57) [1]

procedure TmainForm.PopupButtonClick(Sender: TObject);
begin
 PopupMenu.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

---

← →
Sphinx ©   (2004-03-14 10:05) [2]

> PopupMenu.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);

Блллииииннннн, этож надо же, забыл про мыша совсем. :)))

> ssk   (14.03.04 09:57) [1]
Огромное спасибо!!!

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.028 c