Question

Delphi中怎么用代码设置listbox 选中项

就是我有两个listBox选中了第一个中的项也要把第二个的对应列也选上怎么做呀？

Answer 1

procedure TForm1.ListBox1Click(Sender: TObject);
var L1:string;
L2:integer;
begin
L1:=listbox1.Items.Strings[ListBox1.ItemIndex];
L2:=ListBox2.Items.IndexOf(L1);
ListBox2.Selected[L2]:=True;
end;
上面代码有个要求，就是ListBox1和ListBox12里面的字符要相同，才能对应选上。如果你的程序中两个ListBox里面的字符不一样，那上面代码仅供参考用。

Answer 2

在listbox中的chick事件中做判断吧。

listbox2.checked := listbox1.checked;