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

Положение элемента   Найти похожие ветки 

← →
maxXP ©   (2006-12-04 10:25) [0]

Имееется Спидбаттон которая расположена на КонтролБар
При нажатии  вызывается 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;


---

← →
ЮЮ ©   (2006-12-04 10:31) [1]

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

---

← →
Elen ©   (2006-12-04 10:32) [2]

> maxXP

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

---

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

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



Память: 0.45 MB
Время: 0.039 c