delphi中 点击combobox下或者拉框中的编号 如何将与编号有关的信息如图书名称 出版社等信息显示到edit里面

在Delphi中，你可以使用ComboBox的OnChange事件来实现当选择不同编号时显示相关信息到Edit中。首先，你需要在ComboBox的Items属性中添加编号和对应的信息，例如图书名称、出版社等。然后，编写ComboBox的OnChange事件处理程序，通过选择的编号在Items中找到对应的信息，并将其显示到Edit中。

下面是一个示例代码：

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  SelectedIndex: Integer;
begin
  SelectedIndex := ComboBox1.ItemIndex; // 获取选择的编号
  if SelectedIndex <> -1 then
  begin
    // 根据选择的编号获取对应的信息
    // 假设Items中的格式为 "编号 - 图书名称 - 出版社"
    // 使用Delphi的StringList可以方便地获取和处理这些信息
    with TStringList.Create do
    try
      Delimiter := '-';
      StrictDelimiter := True;
      DelimitedText := ComboBox1.Items[SelectedIndex];
      
      if Count >= 3 then
      begin
        // 将图书名称显示到Edit中
        Edit1.Text := Trim(Strings[1]);
        // 将出版社显示到Edit中
        Edit2.Text := Trim(Strings[2]);
      end;
    finally
      Free;
    end;
  end;
end;

在上述示例代码中，ComboBox1是ComboBox控件的名称，Edit1和Edit2分别是显示图书名称和出版社的Edit控件。你可以根据实际情况进行调整和扩展。

希望这可以帮助到你！如果你有任何其他问题，请随时提问。