窗体设计器的使用套件

本文主要是介绍窗体设计器的使用套件，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

窗体设计器，这个东西大家都不会陌生！最进一段时间，一直在弄关于动态设计窗体控件的东西。放放拣拣，搞了好长一段时间了。这次出差回来，终于全部都弄完了。其为一套组件，共包括6个控件，分别为Formdesigner(窗体设计器),DsControlPanel(控件面板体现器),DsnInspector(对象监测器),DsnManager(设计器管理器),DsnSelect(控件选择器),DsnControlContainer(非可见控件容器)。呵呵，通过这6个控件可以很简单的设计，所有Delphi中的控件，包括第三方控件。
设计界面：

这个是设计界面了，如果是非可见组件的话，拖一个TDsnControlContainer非可见组件容器到DsControlPanel(控件面板体现器)上，此时会弹出一个对话框如下：

此时，你输入一个连接的非可见组件的名称，比如，我们输入TTimer，则对应就会生成一个和TTimer连接的控件Button，则此时，(控件面板体现器)如下：

呵呵，然后，在窗体的OnShow事件中将窗体设计管理器的Active属性设为True则可
self.DxDsnManager1.Active := true;
看看程序的效果吧

如果是加入的第三方控件，则控件面板展现器有一个事件 OnRegisterControl事件里面有一个参数NewArray它是一个Var变量，我们只用在这个事件中将自己的第三方的控件类加入该数组则可，例如，将CnPack中的
TCnSQLAnalyzer查询分析器组件加入设计器中进行设计，我们先将TCnSQLAnalyzer组件拖到控件面板上，让面板自动生成对应的连接按扭，此时界面如下：

那个选中的按扭则为TCnSQLAnalyzer控件对应的连接器。
然后在事件中写代码如下：
procedure TForm1.DxDsControlPanel1RegisterControl(
var NewArray: TclassesArray);
begin
SetLength(NewArray,1);
NewArray[0] := TCnSQLAnalyzer;
end;
运行之后看效果吧，呵呵，效果如下：