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

Image и PopupMenu.   Найти похожие ветки 

← →
tim5   (2003-09-20 22:38) [0]

У меня такая вот проблема: при щелчке правой кнопкой мыши на
Image, контекстное меню всплывает не под курсором мыши, а где-то в
стороне. Для отображения меню я использую следующий метод:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var P: TPoint;
begin
P:=GetClientOrigin;
if Button = mbRight then PopupMenu1.Popup(P.X+X,P.Y+Y);
end;

Я пробовал и другой метод, но проблема всёравно осталась. Вот он:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var P: TPoint;
begin
p.X=X;
p.Y=Y;
P:=ClientToScreen(P);
PopupMenu1.Popup(P.x,P.Y);
end;

Может кто-нибудь подскажет в чём тут проблема? Тут вот ещё какой момент под Image
у меня подложена ScrollBox. Может из-за неё проблема? А как тогда
справить глюк?

---

← →
Романов Р.В. ©   (2003-09-20 23:16) [1]

PopupMenu1.Popup(Mouse.x,Mouse.Y);

---

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

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



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