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

Где кликнули правой кнопкой мыши вызывая попап меню?   Найти похожие ветки 

← →
Германн ©   (2014-10-14 02:19) [0]

<offtop>
Блин, как трудно возвращаться к старому ремеслу.
</offtop>
Нужно показать некую форму в том месте, где была нажата правая кнопка мыши, которая вызвала всплывающее меню, в котором выбрали некий пункт. Что-то не могу найти стандартное/простое решение.

---

← →
NoUser ©   (2014-10-14 02:41) [1]

var
 SavePopPos:TPoint;
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  GetCursorPos(SavePopPos);
  SavePopPos := ScreenToClient(SavePopPos)
end;

---

← →
DQ   (2014-10-14 02:47) [2]

procedure TMain.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
subFormX:=Mouse.CursorPos.X;
subFormY:=Mouse.CursorPos.Y;
popUp.Popup(subFormX, subFormY);
end;

procedure TMain.popUpB1Click(Sender: TObject);
begin
subForm.Left:=subFormX;
subForm.Top:=subFormY;
subForm.ShowModal();
end;

..?

---

← →
Германн ©   (2014-10-14 02:53) [3]

Спасибо. Попробую.

---

← →
Германн ©   (2014-10-15 02:28) [4]

> NoUser ©   (14.10.14 02:41) [1]

GetCursorPos в OnPopup помогло.
ScreenToClient в моём случае лишнее.

---

← →
DQ   (2014-10-15 04:36) [5]

"Mouse.CursorPos." по сути тоже самое, только не на WinAPI, а обёртка VCL.

---

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

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



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