Question

delphi listbox

两个 listbox ，显示的数据是互相有联系的。如何通过按钮实现：无论在那个 listbox 进行删除单条数据，另一个 listbox里的数据会跟这变化。最好是附上代码。刚学习delphi不久。。谢谢

Answer 1

LISTBOX1 和LISTBOX2 有什么联系？
删除listbox 的数据 就是listbox的 Items 进行删除。
每一个Items 你可以看作是 一条数据（也就是看到的一行），
每个Items 都有一个下标， 0 开始。
如果要删除 你看到 listbox1的第二条数据，就是 listbox1. Items[1].Delete;
具体代码楼上已经写了，我就不重复了

Answer 2

设计界面：
放置3个控件。ListBox1，ListBox2，一个popupmenu1双击新增菜单（命名为删除）。
属性设置：ListBox1，ListBox2的popupmenu的链接为popupmenu1。

代码部分：
//显示界面时生成listbox中的数据
procedure TForm1.FormShow(Sender: TObject);
var i:Integer;
begin
for i:=1 to 10 do
begin
ListBox1.Items.Add(IntToStr(i));
ListBox2.Items.Add(IntToStr(i * 2));
end;
end;

procedure TForm1.N1Click(Sender: TObject); //删除，这就是popupmenu1
begin
ListBox1.Items.Delete(ListBox1.ItemIndex); //
ListBox2.Items.Delete(ListBox2.ItemIndex ); //
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
ListBox2.ItemIndex:=ListBox1.ItemIndex; //listbox2跟随listbox1
end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
ListBox1.ItemIndex:=ListBox2.ItemIndex; //listbox1跟随listbox2
end;