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;

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

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

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

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