delphi listbox 双击 items 事件

Posted 2023-04-19

delphi listbox 双击 items 事件
这个怎么写？

我想双击选中的item 就删除数据

在OnDblClick事件里写：self.ListBox1.DeleteSelected;就可以了 参考技术A ListBox1.Items.Delete(ListBox1.ItemIndex); 参考技术B procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

这样应该就可以了，我试过

Chapter 5. ListBox控件（双击播放图片）

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;

namespace ListBox控件
{
    public partial class Form2 : Form
    {
        public Form2()
        {
            InitializeComponent();
        }

        private void Form2_Load(object sender, EventArgs e)
        {
            for (int i = 0; i < path.Length; i++)
            {
                string fileName = Path.GetFileName(path[i]);
                listBox1.Items.Add(fileName);
            }
        }

        string[] path = Directory.GetFiles(@"C:\\Users\\Administrator\\Desktop\\新建文件夹");

        //双击播放图片
        private void listBox1_DoubleClick(object sender, EventArgs e)
        {
            pictureBox1.Image = Image.FromFile(path[listBox1.SelectedIndex]);
        }
    }
}