Скачать: CL | DM;

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;

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c