delphi程序运行动态创建控件可以拖放打家可以参考下