1463
社区成员
26.2w+
社区内容
- 主页
- 招聘
- 语言基础/算法/系统设计
- 数据库相关
- 图形处理/多媒体
- 网络通信/分布式开发
- VCL组件开发及应用
- Windows SDK/API
...全文
yczyk 2003年01月18日
呵呵，太简单了点吧！
gzyzljk 2003年01月18日
Edit1.Text:=Listbox1.Items.Strings[listbox1.ItemIndex];
jackie168 2003年01月18日
Edit1.Text:=listbox.items[listbox.itemindex];
yayx 2003年01月18日
这样就行了
加入：
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
Edit1.Text:=Listbox1.Items.Strings[listbox1.ItemIndex];
end;
加入：
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
Edit1.Text:=Listbox1.Items.Strings[listbox1.ItemIndex];
end;
lincanwen 2003年01月18日
双击事件：
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
edit1.Text:=ListBox1.Items[ListBox1.ItemIndex];
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
edit1.Text:=ListBox1.Items[ListBox1.ItemIndex];
end;