Как вызвать Popup Menu левой кнопой мыши?

[Dux]

Вопрос простой, но что-то не соображу..

[Аватар]

Ловить нажатие девой кнопки и метод PopupMenu.Popup

[DenNik2006]

procedure TForm2.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  p: TPoint;
begin
  if Button = mbLeft then
  begin
    p:= Panel1.ClientToScreen(Point(X,Y));
    PopupMenu1.Popup(p.x,p.Y);
  end;
end;

[Dux]

Сообщение от DenNik2006

procedure TForm2.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  p: TPoint;
begin
  if Button = mbLeft then
  begin
    p:= Panel1.ClientToScreen(Point(X,Y));
    PopupMenu1.Popup(p.x,p.Y);
  end;
end;

Попробуем..

[DenNik2006]

Сообщение от Dux

А можно ли комментарий к вашему коду? Немного не вьехал по поводу строки p:= Panel1.ClientToScreen(Point(X,Y)); Причем здесь панель?

это пример вызова меню при щелчке на панели
p:= Panel1.ClientToScreen(Point(X,Y)); переводит координаты мыши относительно панели в координаты экрана, которые передаются в метод PopupMenu1.Popup

[Dux]

Попробовал, однако это не совсем то, что мне нужно. Дело в том, что это меню должно появляться только при щелчке на определенной ячейке в DBGrid.
А теперь оно стало появляться в любом месте формы.

[DenNik2006]

Обработать SelectSell грида, если выбранная ячейка нужная, вызываем меню, для получения координат мышА юзаем GetCursorPos или Mouse.CursorPos

[Dux]

Сообщение от DenNik2006

Обработать SelectSell грида, если выбранная ячейка нужная, вызываем меню, для получения координат мышА юзаем GetCursorPos или Mouse.CursorPos

Ок, спасибо!

[DenNik2006]

пардон, не знал что у DBGrid нет OnSelectSell!
тогда наверное OnCellClick