| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

chir ©   (2005-01-12 23:34:00) 

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

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

---

chir   (2005-01-13 00:26:00) [1]

Сделал так:

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

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

---

chir   (2005-01-13 00:24:00) [2]

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

---

Gero   (2005-01-13 00:11:00) [3]

> 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:04:00) [4]

> Gero

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

---

Gero   (2005-01-12 23:48:00) [5]

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

---

chir   (2005-01-12 23:45:00) [6]

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

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

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

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

---

Gero   (2005-01-12 23:37:00) [7]

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

---

Наверх