一个关于LISTBOX的问题，很容易是吗？---送分嘛！

Question

我怎样自由控制LISTBOX中的项选中，比如说：我可能初始化时就要LISTBOX已经选中了一条或几条。

Answer 1

ListBox1.Selected[i]:=true
抢分

Answer 2

ListBox1.Selected[ListBox1.ItemIndex]:=True只要你把你要选择的项的INDEX按条件找到，就可以了。结贴吧

Answer 3

首先LISTBOX获得焦点，ListBox1.Selected[i] := True; //i为listbox的记录索引号

Answer 4

不行呀!
我不能让LISTBOX取得焦点,比如说我要像金山词霸那样,或者说比那个更难
举个例题吧,我的LISTBOX中有3条记录的前一个字符是"A",现在我在另一个输入中输入一个"A"字符,回车后我的LISTBOX要能选中这3条记录.
多多灌水,来者有分,有100分嘛!

Answer 5

DrawItem中，你想干什么都行。

Answer 6

listbox1.Selected[0]:=true;
listbox1.Selected[2]:=true;
listbox1.Update;//或lisbox1.selectall;
    listbox1.update;

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
var
  I:integer;
  str:string;
begin
    str :=UpperCase(Edit1.Text); 
    for I:=0 to ListBox1.Items.Count -1 do
    Begin
       if pos(str,upperCase(ListBox1.Items[i]))>0 then
          ListBox1.Selected[i]:= true
        else   ListBox1.Selected[i] := false; 
    end;
end;