回 帖 发 新 帖 刷新版面

主题:[讨论]新手listbox的问题

listbox如何使用?
例如我选中了其中一个items 要把这items 的index 显示在一文本框
或者把选中的items的名字显示在文本框

procedure TForm1.ListBox1Click(Sender: TObject);
begin
edit1.Text :=listbox1.这里接什么?(找不到书本上说的itemindex属性呀)
end;

回复列表 (共6个回复)

沙发

你这样写
edit1.text:=listbox1.items.string[index号];

板凳

edit1.Text :=listbox1.Items[listbox1.ItemIndex];

3 楼

等号左边与右边不是同意类型,所以你当单点不出来了。
Edit.Text为String类型
listbox1.ItemIndex为好像是int吧??呵呵

4 楼

Edit1.Text:=StrToInt(ListBox1.ItemsIndex);//选种的index的值赋给edit
Edit1.Text:=ListBox1.Items[ListBox1.ItemsIndex];

5 楼

谢谢

6 楼

[quote]Edit1.Text:=StrToInt(ListBox1.ItemsIndex);//选种的index的值赋给edit
Edit1.Text:=ListBox1.Items[ListBox1.ItemsIndex];[/quote]

4楼的回复很不错,略微修改一下。
Edit1.Text := IntToStr(ListBox1.ItemIndex); //将所选项的Index值赋给Edit1.Text
Edit1.Text := ListBox1.Items[ListBox1.ItemIndex]; //将所选项的内容赋给 Edit1.Text

我来回复

您尚未登录,请登录后再回复。点此登录或注册