主题:[讨论]新手listbox的问题
weisonds
[专家分:10] 发布于 2007-06-08 10:54:00
listbox如何使用?
例如我选中了其中一个items 要把这items 的index 显示在一文本框
或者把选中的items的名字显示在文本框
procedure TForm1.ListBox1Click(Sender: TObject);
begin
edit1.Text :=listbox1.这里接什么?(找不到书本上说的itemindex属性呀)
end;
回复列表 (共6个回复)
沙发
hbchen [专家分:0] 发布于 2007-06-08 16:17:00
你这样写
edit1.text:=listbox1.items.string[index号];
板凳
xinxi99206 [专家分:380] 发布于 2007-06-09 10:29:00
edit1.Text :=listbox1.Items[listbox1.ItemIndex];
3 楼
ILikePromgram [专家分:190] 发布于 2007-06-13 23:20:00
等号左边与右边不是同意类型,所以你当单点不出来了。
Edit.Text为String类型
listbox1.ItemIndex为好像是int吧??呵呵
4 楼
linjipeng0 [专家分:220] 发布于 2007-09-15 13:42:00
Edit1.Text:=StrToInt(ListBox1.ItemsIndex);//选种的index的值赋给edit
Edit1.Text:=ListBox1.Items[ListBox1.ItemsIndex];
5 楼
weisonds [专家分:10] 发布于 2007-11-05 10:57:00
谢谢
6 楼
Hongyi1234 [专家分:60] 发布于 2007-11-05 17:43:00
[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
我来回复