| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрос по ClientToScreen

KIR ©   (2002-09-06 15:36:00) 

Никак не могу решить проблему: есть 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 выскакивает по координатам экрана. Как перевести координаты?

---

KIR   (2002-09-06 15:49:00) [1]

спас!

---

lenin   (2002-09-06 15:39:00) [2]

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

---

Наверх