Один PopupMenu на два ListView

[Shouldercannon]

Хочу привязать один PopupMenu к двум ListView

procedure TForm4.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  OpenPopupMenu(ListView1, Button, X, Y);
end;

procedure TForm4.ListView2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  OpenPopupMenu(ListView2, Button, X, Y);
end;

procedure TForm4.OpenPopupMenu(LV: TListView; Button: TMouseButton; X, Y: Integer);
var
  I: Integer;
  P: TPoint;
begin
  if mbLeft = Button then Exit;
  if LV.GetItemAt(X, Y) = nil then Exit;

  I := LV.GetItemAt(X, Y).Index;
  // Если курсор на одной из строк
  if I >= 0 then
  begin
    LV.ItemIndex := I;
    // И ручной вызов меню
    P := LV.ClientToScreen(Point(X, Y));
    PopupMenu1.Popup(P.X, P.Y);
  end;
end;

procedure TForm4.NCopyClick(Sender: TObject);
begin
  {if ListView1.Items[ListView1.ItemIndex].SubItems[0] = '' then Exit;
  Clipboard.AsText := ListView1.Selected.SubItems[0];}
  // За что тут зацепиться?
end;

Проблема в том, что не за что зацепиться в NCopyClick. Как указать, что именно нужно копировать?

[Пепел Феникса]

вы имеете в виду как отличить к кому был доступ?
при открытии сохраните последний листвью в переменную, а в обработчике применяйте ее.

[Shouldercannon]

Типа того. Скопировать данные из того ListView, на строке которого было вызвано меню.

[Пепел Феникса]

в вашем методе OpenPopupMenu сохраните какой LV открылся в поле формы и потом его и применяйте.

[kropotkina-alice]

Что-то мудрите вы тут, по-моему...
Во-первых, я не поняла извращений ТС.
Достаточно в свойствах ListView1 и ListView2 указать один и тот же параметр PopupMenu и они оба будут вызывать одно и то же PopupMenu...
Далее - событие PopupMenuImagePopup(Sender: TObject) имеет параметр Sender - это и есть вызвавший меню объект.
И в этом обработчике достаточно определить

if (Sender as TListView).Name='ListView1' then
begin
//список операторов для ListView1
end else
begin
//список операторов для ListView2
end;

Или проблема у ТС имеет некий глубинный смысл, которого я не уловила?

[Shouldercannon]

По условию PopupMenu должен быть вызван, если был произведён клик по записи. Событие PopupMenu у ListView не трогаем.

[Пепел Феникса]

я вам уже написал что сделать надо.
или мне код нужно накидать?

[Shouldercannon]

Сообщение от Пепел Феникса

я вам уже написал что сделать надо.
или мне код нужно накидать?

Если можно

[Shouldercannon]

procedure TForm4.NCopyClick(Sender: TObject);
var
  LV: TListView;
begin
  LV := TListView(PopupMenu1.Tag);
  if LV.Items[LV.ItemIndex].SubItems[0] = '' then Exit;
  Self.Caption := LV.Selected.SubItems[0];
end;

procedure TForm4.OpenPopupMenu(LV: TListView; Button: TMouseButton; X, Y: Integer);
var
  I: Integer;
  P: TPoint;
begin
  PopupMenu1.Tag := Integer(LV);

  if mbLeft = Button then Exit;
  if LV.GetItemAt(X, Y) = nil then Exit;

  I := LV.GetItemAt(X, Y).Index;
  // Если курсор на одной из строк
  if I >= 0 then
  begin
    LV.ItemIndex := I;
    // И ручной вызов меню
    P := LV.ClientToScreen(Point(X, Y));
    PopupMenu1.Popup(P.X, P.Y);
  end;
end;

[evg_m]

PopupMenu.PopupComponent
Delphi Help Example

This example uses two edit boxes and one pop-up menu on a form. The pop-up menu contains Cut, Copy, and Paste commands. This code makes the pop-up menu available to both edit boxes:

procedure TForm1.FormCreate(Sender: TObject);

begin
  PopupMenu1.AutoPopup := True;
  Edit1.PopupMenu := PopupMenu1;
  Edit2.PopupMenu := PopupMenu1;

end;

These are the cut, copy, and paste OnClick events for the commands on the pop-up menu.

procedure TForm1.Copy1Click(Sender: TObject);

begin
  if PopupMenu1.PopupComponent = Edit1 then
   Edit1.CopyToClipboard
  else if PopupMenu1.PopupComponent = Edit2 then
    Edit2.CopyToClipboard
  else
    Beep;

end;

procedure TForm1.Cut1Click(Sender: TObject);

begin
  if PopupMenu1.PopupComponent = Edit1 then
    Edit1.CutToClipboard
  else if PopupMenu1.PopupComponent = Edit2 then
    Edit2.CutToClipboard;
  else
    Beep;

end;

procedure TForm1.Paste1Click(Sender: TObject);

begin
  if PopupMenu1.PopupComponent = Edit1 then
    Edit1.PasteFromClipboard
  else if PopupMenu1.PopupComponent = Edit2 then
    Edit2.PasteFromClipboard;
  else
    Beep;
end;