Форум: "Основная";
Текущий архив: 2002.09.23;
Скачать: [xml.tar.bz2];
Вниз
Как правильно вывести 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c