Popup Menü ve 2 ListBox da aynı işlem

[xozcanx]

Kod: Tümünü seç

procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbRight then
     PopupMenu1.Popup(ListBox1.ClientOrigin.X+X,ListBox1.ClientOrigin.Y+Y);
end;

Kod: Tümünü seç

procedure TForm1.Sil1Click(Sender: TObject);
begin
     ListBox1.DeleteSelected;
     PopupMenu1.CloseMenu;
end;