Текущий архив: 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.015 c
