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

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

Положение элемента [D7, XP]

maxXP ©   (2006-12-04 10:25:00) 

Имееется Спидбаттон которая расположена на КонтролБар
При нажатии  вызывается PopupMenu1.Popup
Подскажите есть ли возможность как то узнать позицию спидбаттона относительно формы более просто чем:

procedure Tfosc.SpeedButton1Click(Sender: TObject);
begin
PopupMenu1.Popup(TSpeedButton(Sender).Left+TSpeedButton(Sender).Width+fosc.Left,TSpeedButton(Sender).Top+TSpeedButton(Sender).Height+fosc.Top);
end;


---

Elen   (2006-12-04 10:32:00) [1]

> maxXP

Если тебе нужно вывести попуп в позиции мышки то можно пробовать так :
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;

---

ЮЮ   (2006-12-04 10:31:00) [2]

p := Form.ScreenToClient(SpeedButton.ClientToScreen(Poin(0, 0));

---

Наверх