关于如何创建可视化控件问题

我是刚刚接触delphi的，我以前是做pb的，在pb中有这么几个控件一是standard   visual（创建标准可视化控件）一个是：custom   visual（创建自定义控件）。创建好了这些控件后我的工程中就有了这个组建，我只要  
  加到工程文件中去就可以和合作伙伴共同享用了。这个组建可以让让我的工程中其他用到该组建的都是一样的风格，我只要改改该组建，其他的就都改变了。比喻说，我现在在工程里创建了一个名为:lb_button的组建。  
  我的工程中所有的窗体都用到了他，现在我想改变一下其风格，我只要改变lb_button组建就可以了。这样就能保证风格一致性，也就是我们所说的继承嘛！我不知道delphi中也是否有这样类似的东东！还请大家多多  
  指教！！！！！！ 问题点数：0、回复次数：6Top

1 楼wangzhibing_3366（枫叶林）回复于 2005-04-01 13:59:51 得分 0

哦！我所要的不是面板上的控件！我要的是工程之中的控件，这样方便我们能及时得到最  
  新的版本！也不会因为谁忘记了安装控件而无法工作！如果是工程文件控件的话，那我们  
  只要得到最新的版本都可以了，不会遗忘了那些控件没有装上！！！Top

2 楼wangzhibing_3366（枫叶林）回复于 2005-04-02 08:24:59 得分 0

upTop

3 楼antsfoot（蚂蚁脚）回复于 2005-04-02 08:26:50 得分 0

好帖，顶上去，Top

4 楼antsfoot（蚂蚁脚）回复于 2005-04-02 08:28:26 得分 0

其实delphi里的frame有类似的功能，不过没你要求的那样在工程里继承  
  关注此帖Top

5 楼wangzhibing_3366（枫叶林）回复于 2005-04-02 08:29:32 得分 0

难道delphi就只有这样的了吗Top

6 楼heluqing（鉴之小河〖劳累求充实〗)(vcl .net）回复于 2005-04-02 09:19:40 得分 0

你可以从当前VCL的类型来继承然后自己构造一个，放在工程的某个Unit里面就可以了，举个例子给你：  
  {这个是我前几天做监控，用来模拟网管接入点的}  
  TAP   =   Class(TSpeedButton)       //网管接入点  
                  private  
                                  FState:boolean;  
                                  FDeviceIP:string;  
                                  FDeviceAddr:string;  
                                  FMoveable:Boolean;  
                                  FDeviceStyle:byte;  
                                  function   GetCenterX:integer;  
                                  function   GetCenterY:integer;  
                  protected  
   
                  public  
                                  constructor   Create(AOwner:   TComponent);   override;  
                                  destructor   Destroy;   override;  
                                  property   CenterX:integer   read   GetCenterX;  
                                  property   CenterY:integer   read   GetCenterY;  
                                  property   State:boolean   read   FState   write   FState   default   true;  
                                  property   DeviceIP:string   read   FDeviceIP   write   FDeviceIP;                 //网管接入点IP地址  
                                  property   DeviceAddr:string   read   FDeviceAddr   write   FDeviceAddr;     //网管接入点物理位置  
                                  property   DeviceStyle:byte   read   FDeviceStyle   write   FDeviceStyle;   //设备类型  
                                  property   Moveable:Boolean   read   FMoveable   write   FMoveable   default   False;//是否可以移动  
                                  function   AlarmCheck(DeviceIP:string):string;                                       //查询告警信息:命令编号10  
                                  procedure   APCheck(DeviceIP:string);                                                         //网管接入点参数查询  
                                  procedure   APSet(APSytle:byte;APsign,APname,APIP,CenterIP,gateIP,maskIP,Mac,GAPsign:string;set1:byte);                                                                             //网管接入点参数设置  
                  end;  
  --------------------------------------------------  
  工程中都使用新写的这个，想要修改的时候，就修改UnitAP.pas（我放在这里的）这个文件的内容，重新编译就可以了，不知道这是不是你要的东西...Top

相关问题

• 控件
• 网管
• delphi
• fdeviceip
• fdeviceaddr
• fdevicestyle
• 创建
• 工程
• 组建
• fstate

• 帖主：wangzhibing_3366

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载