Текущий архив: 2002.09.19;
Скачать: CL | DM;

Вниз

Вопрос по ClientToScreen   Найти похожие ветки 

← →
KIR ©   (2002-09-06 15:36) [0]

Никак не могу решить проблему: есть StringGrid нужно, чтоб по событию OnMouseUp под курсором мышки выскакивало PopUpMenu. Если сделать так

procedure TTblFrstForm.StringGrid1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Col,Row: Integer;
begin
If Button := mbRight then
begin
StringGrid1.MouseToCell(X,Y,Col,Row);
If Col = 0 then
PopUpMenu1.PopUp(X,Y);
end;
end;


То PopUpMenu выскакивает по координатам экрана. Как перевести координаты?

---

← →
lenin ©   (2002-09-06 15:39) [1]

p:=ClientToScreen(Point(x,y));
PopupMenu1.Popup(p.x,p.y);

---

← →
KIR ©   (2002-09-06 15:49) [2]

спас!

---

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

Текущий архив: 2002.09.19;
Скачать: CL | DM;

Наверх

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