新手求助～关于列表框的

Question

想实现在左边列表框里点选一个选项，右边的所有edit框里都能显示相关信息，
这个功能怎么实现呢？

Answer 1

在onchange事件里面写,edit.text:=listview....

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    lst1: TListBox;
    Edt1: TEdit;
    procedure lst1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.lst1Click(Sender: TObject);
var i:Integer;
begin
  for i:=0 to lst1.Items.Count-1 do
    if lst1.Selected[i] then
      Edt1.Text:=lst1.Items.Strings[i];
end;end.