5,928
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
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;
