ToolButton6.DropdownMenu.Popup(0,0); - как получить координаты?

← →
chir (2005-01-12 23:34) [0]

При таком коде меню всплывает в левом верхнем углу экрана. Как мне сделать чтобы оно всплывало возле кнопки?

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
ToolButton6.DropdownMenu.Popup(0,0);
end;

← →
Gero © (2005-01-12 23:37) [1]

with Button1.ClientToScreen(0, 0) do
ToolButton6.DropdownMenu.Popup(X, Y);

← →
chir (2005-01-12 23:45) [2]

не понял...
что за Button1?

короче говоря мне надо по нажатию на ToolButton вывести Popup Menu

причем
ToolButton.Style := tbsDropDown;
ToolButton.DropDownMenu := PopupMenu1;

Фишка в том, что по нажатию на стрелочку (справа от такой кнопки) PopupMenu всплывает, а вот по нажатию по остальной кнопке - нет :(

← →
Gero © (2005-01-12 23:48) [3]

with TToolButton(Sender).ClientToScreen(0, 0) do
TToolButton(Sender).DropdownMenu.Popup(X, Y);

← →
chir (2005-01-13 00:04) [4]

> Gero

неа.. ошибка :(
несовместимость типов TPoint and Integer

← →
Gero © (2005-01-13 00:11) [5]

> chir (13.01.05 00:04)

Тьфу.
with TToolButton(Sender).ClientToScreen(Point(0, 0)) do
TToolButton(Sender).DropdownMenu.Popup(X, Y);

← →
chir (2005-01-13 00:24) [6]

:)
все почти классно. только вот PopupMenu теперь закрывает ToolButton
как мне его выше или ниже ToolButton"a сделать?

← →
chir (2005-01-13 00:26) [7]

Сделал так:

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
with TToolButton(Sender).ClientToScreen(Point(0, ToolButton6.Height)) do
TToolButton(Sender).DropdownMenu.Popup(X, Y);
end;

Отлично работает. Спасибо!!!!

ToolButton6.DropdownMenu.Popup(0,0); - как получить координаты? Найти похожие ветки