delphi70实现控件工具箱功能

在Delphi 7.0中，实现控件工具箱功能的方法如下：

1. 创建一个新的Delphi项目。
2. 在主窗体上添加一个ToolBox控件，用于显示控件列表。
3. 在ToolBox控件的OnClick事件中，添加以下代码：

procedure TForm1.ToolBox1Click(Sender: TObject);
var
  ControlClass: TControlClass;
  Control: TControl;
begin
  // 获取用户点击的控件类
  ControlClass := TControlClass(ToolBox1.Items.Objects[ToolBox1.ItemIndex]);

  // 创建控件实例
  Control := ControlClass.Create(Self);
  Control.Parent := Self;
  Control.Left := 10;
  Control.Top := 10;
end;

4. 在FormCreate事件中，添加以下代码：

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  // 将所有可用的控件类添加到ToolBox控件中
  for I := 0 to ComponentCount - 1 do
  begin
    if Components[I] is TControl then
    begin
      ToolBox1.Items.AddObject(TControl(Components[I]).ClassName, TObject(TControlClass(Components[I].ClassType)));
    end;
  end;
end;

5. 运行程序，点击ToolBox中的控件名称，将会在主窗体上创建对应的控件实例。

注意：在以上代码中，只有继承自TControl的控件类才能被添加到ToolBox控件中。如果你想添加其他类型的控件类，可以根据需要修改代码