Текущий архив: 2016.07.24;
Скачать: 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 вся ветка
Текущий архив: 2016.07.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
