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

Вниз

Как правильно вывести PopupMenu   Найти похожие ветки 

← →
KIR ©   (2002-09-12 11:46) [0]

Вот есть процедура:

procedure TVvodGrid.StringGrid1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Col,Row: Integer;
P: TPoint;
begin
If Button = mbRight then
begin
StringGrid1.MouseToCell(X,Y,Col,Row);
If Col < 2 then
begin
P := ClientToScreen(Point(X,Y));
PopupMenu1.Popup(P.X,P.Y);
end;
end;
end;

Почему-то меню выскакивает на две строки выше, зато по Y все нормально.
Может поможет: на форме кроме StringGrid"a есть еще две панели, у одной Alignmeny = alTop, у второй - alButtom, у StringGrid"a - соответственно - alClient

---

← →
Song ©   (2002-09-12 11:52) [1]

Не надо ClientToScreen().
X и Y у Вас относительно TStringGrid

---

← →
Старый Паскалист   (2002-09-12 11:53) [2]

StringGrid1.ClientToScreen(...)

---

← →
KIR ©   (2002-09-12 12:25) [3]

>> Старый Паскалист - спас!

---

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

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

Наверх

Память: 0.47 MB
Время: 0.011 c