已解决。procedure Tfrm.ListBox1Click(Sender: TObject); begin edit1.text:=ListBox1.Items.Strings[ListBox1.ItemIndex]; end;
function GetFirstSelection(List: TCustomListBox): Integer; begin for Result := 0 to List.Items.Count - 1 do if List.Selected[Result] then Exit; Result := LB_ERR; end;procedure TForm1.ListBox1Click(Sender: TObject); var i: Integer; begin i := GetFirstSelection(listbox1); Edit1.Text := listbox1.Items.Strings[i]; end;
begin
edit1.text:=ListBox1.Items.Strings[ListBox1.ItemIndex];
end;
begin
for Result := 0 to List.Items.Count - 1 do
if List.Selected[Result] then Exit;
Result := LB_ERR;
end;procedure TForm1.ListBox1Click(Sender: TObject);
var
i: Integer;
begin
i := GetFirstSelection(listbox1);
Edit1.Text := listbox1.Items.Strings[i];
end;