窗体设计器,这个东西大家都不会陌生!最进一段时间,一直在弄关于动态设计窗体控件的东西。放放拣拣,搞了好长一段时间了。这次出差回来,终于全部都弄完了。其为一套组件,共包括6个控件,分别为Formdesigner(窗体设计器),DsControlPanel(控件面板体现器),DsnInspector(对象监测器),DsnManager(设计器管理器),DsnSelect(控件选择器),DsnControlContainer(非可见控件容器)。呵呵,通过这6个控件可以很简单的设计,所有Delphi中的控件,包括第三方控件。
设计界面:
这个是设计界面了,如果是非可见组件的话,拖一个TDsnControlContainer非可见组件容器到DsControlPanel(控件面板体现器)上,此时会弹出一个对话框如下:
此时,你输入一个连接的非可见组件的名称,比如,我们输入TTimer,则对应就会生成一个和TTimer连接的控件Button,则此时,(控件面板体现器)如下:
呵呵,然后,在窗体的OnShow事件中将 窗体设计管理器 的Active属性设为True则可
self.DxDsnManager1.Active := true;
看看程序的效
设计界面:
这个是设计界面了,如果是非可见组件的话,拖一个TDsnControlContainer非可见组件容器到DsControlPanel(控件面板体现器)上,此时会弹出一个对话框如下:
此时,你输入一个连接的非可见组件的名称,比如,我们输入TTimer,则对应就会生成一个和TTimer连接的控件Button,则此时,(控件面板体现器)如下:
呵呵,然后,在窗体的OnShow事件中将 窗体设计管理器 的Active属性设为True则可
self.DxDsnManager1.Active := true;
看看程序的效