说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何简单地把几个标准组件的组合封装成一个可以安装的新组件?

编辑:说三道四文库 发布时间:2017-04-26 09:47
HTML文档下载 WORD文档下载 PDF文档下载
我看到参考书都是在CPP文件里写代码,创建子组件,用代码安排布局。有没有象PB那样的对象画板,可以显示地安排子组件的布局和初始属性?我想要运行时生成TabSheet,每个TabSheet上都是几个Edit,Split,Statusbar的组合。
不要告诉我用“Create Componet Template”。
自然是采用类的聚合
比如:
//---------------------------------------------------------------------------
#ifndef PictureSelectorH
#define PictureSelectorH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Controls.hpp>
#include <Classes.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
const String Strings[] = {
  "handshak.bmp",
  "factory.bmp",
  "chemical.bmp",
  "shipping.bmp",
  "finance.bmp"
};

class PACKAGE TUnlPictureSelector : public TWinControl
{
private:
  TComboBox* FComboBox;
  TImage* FImage;
protected:
  void __fastcall ComboBoxClick(TObject* Sender);
  virtual void __fastcall CreateWnd();
public:
  __fastcall TUnlPictureSelector(TComponent* Owner);
};
//---------------------------------------------------------------------------
#endif


//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "PictureSelector.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TUnlPictureSelector *)
{
  new TUnlPictureSelector(NULL);
}
//---------------------------------------------------------------------------
__fastcall TUnlPictureSelector::TUnlPictureSelector(TComponent* Owner)
  : TWinControl(Owner)
{
  Width = 240;
  Height = 205;
  FComboBox = new TComboBox(this);
  FComboBox->Left = 0;
  FComboBox->Top = 0;
  FComboBox->Width = 150;
  FComboBox->Style = csDropDownList;
  FComboBox->OnClick = ComboBoxClick;
  FComboBox->Parent = this;
  FImage = new TImage(this);
  FImage->Left = 0;
  FImage->Top = FComboBox->Height;
  FImage->Width = Width;
  FImage->Height = Height - FComboBox->Height;
  FImage->Parent = this;
}
//---------------------------------------------------------------------------
void __fastcall TUnlPictureSelector::CreateWnd()
{
  TWinControl::CreateWnd();
  if (!ComponentState.Contains(csDesigning)) {
    for (int i=0;i<6;i++)
      FComboBox->Items->Add(Strings[i]);
    FComboBox->ItemIndex = 0;
    ComboBoxClick(0);
  }
}

void __fastcall TUnlPictureSelector::ComboBoxClick(TObject* Sender)
{
  int index = FComboBox->Items->IndexOf(FComboBox->Text);
  FImage->Picture->LoadFromFile(Strings[index]);
}
//---------------------------------------------------------------------------


其实我的意思是可视化安排布局,比如里面封装一个StatusBar,用属性编辑器可以方便地分割Panel,不用程序一条一条写。不过看来没这摸好的事。你写的方法我会,只是,不知“类的聚合”是什么意思?
就是组合类的意思
自己的IE——用VB制作浏览器 VB6制作Win98风格的工具栏 VB实现窗口的弹出式菜单 用VB做个漂亮的进度条 Cool 3D 浮動按鈕的模擬作法-VB资料 VB 5.0中实现鼠标拖放 VB5.0下工具条的制作 VB5.0中基于桌面的屏幕技巧 VB5.0中实现字体闪烁效果 VB5实现窗口图像缩放、滚动技巧 VB6.0动态加载ActiveX控件漫谈 VB编程步步高-表单篇 VB编程常见问题 VB编程中如何锁定鼠标 VB创建位图菜单 VB实现按钮浮动效果 VB应用程序中的工具提示和状态显示 VB中处理长列表框项的两种方法 VB中多级下拉列表的实现 VB中防止将重复项目添加到列表框控件中 VB中实现菜单分割 VB中实现带预览的对话框 VB中实现同一窗口的多个实例及控件的动态增减 VB中阴影字体的实现 VB自定义数据结构的传输转换 Visual Basic 窗体背景花纹的实现 Visual Basic 中的界面设计原则和编程技巧 Visual Basic 中文本框处理技巧集萃 Visual Basic 中字符淡出淡入的实现 Visual Basic窗体背景花纹的实现 Visual Basic下工具条的制作 各位如何才能自己编写BorderIcon被按下的处理方法阿 如保读取CLOB类型数据(能解决者,100分决不失言) 用jspsmartupload上传文件遇到的问题 关键字:ComboBox 郁闷,散分!!顺便问一下怎样吧string转为Number? 高分征集“图书馆管理软件”的毕业论文 问一下 急!!!!!!在给等 江苏省程序员考试什么时候报名?(在线等待,立即给分!) 请教类似VB中mid功能的delphi函数名!急急急 本人要应聘程序员工作,向大家请教经验。散分! 请问Oracle9iAS Portal宝典这本书怎么样? 初学delphi,请问delphi中有没有静态变量,就像vb中的static 在delphi中有没有静态变量,就像 vb中的static Delphi (如何打包) 有什么 可以 将 我的东西 转化成 具体的软件????? 我发现,假如在FORM1窗体中,有命令form2.showmodal,那么,在form2.free时,FORM1窗体受不受影响?。 有没有绘制流程图的控件? 我用ADO连接SQL-SERVER,怎么能解决由于网络中断造成的数据重连接问题? VB ListView 中如何判断那些复选框是被选中的,那些不是? 如何让动态创建的窗口获得焦点? 100分求教,如何让自己的程序支持插件 关于一个画图的小程序 江湖救急!!高分求助!! 各位高手介绍几本关于JB6的好书 300分求得TAPI的监控问题。学会后一定给分。 哪位认识它:readme.eml(图表是一个打开的信封,白色) VB.NET中如何在立即窗口运行表达式,如要运行3+2,如何输入才能显示结果? 为什么在派生类的时候找不到CWnd? 急:各位大侠!问一个很菜的问题?在JB6中发布的问题: 我在ASP调用VB写的组件,结果报下面的错误 小弟有两个问题想问问大家??? 请问sql server2000中如何导出关系图的? 编译的问题!! WinExec()老问题???? 负载均衡有多少种方法?可以简要 我的程序是UNICODE版,由GetHtmlDocument得到的东西怎样变换呢? 我在局域网上,怎样通过程序知道我自已这台机器在INTERNET上的IP 日期控件的问题 关于mfc类的引用问题? sql server 2000/7.0 有什么优点?言者有分。 做中国的实况足球!成就中国的EA.SPORTS! 寻找UltraEdit编辑器的JSP关键字文件 ACCESS数据库访问密码问题和特殊键的屏蔽问题 thanks all ,bow 有谁可以给我一种打印连续走孔纸的方案!(最好是用PRITNER方法来写的) 好象 韩悄声 昨天又说错了,或者我听错了。 多表联接 可以在SELECT语句中调用存储过程吗? 找ICPC真题的参考答案和测试数据 哪位认识它:readme.eml(图表是一个打开的信封,白色) 我用别人提供的web service,做了一个世界杯实况查询系统! 我的php 用了session后, 就出先了问题, 有人可以告诉我是为什么吗? 在U形管中装有水银,当把装有橡皮塞的金属盒的水中为什么水和水银的压强相等 趣味语文小故事要有题目【另外的】和它的含义和至少3个有趣的小故事非常感谢! 水的密度受不受温度的影响? 汽油的挥发度是多少啊? 趣味语文的手抄报,除了趣味的歇后语,趣味的广告,趣味语文的的意义,趣味语文的笑话,趣味语文的故事,还能有什么? 质量受不受温度影响 挥发度概念? 四氟乙烯材料具体用在哪些行业?具体作用是什么?跟一般的塑料相比,有什么优越性 水和冰温度不同质量会发生改变么 什么是挥发度? 石墨和四氟乙烯是一回事吗?请说明他们分别是说明 各有什么用处 好痒微生物在污水处理中的作用 怎么萃取有机磷 选用什么萃取剂?是从肉制品中萃取有机磷 怎么去掉保温瓶的异味 何种微生物在污水处理中作用较好,希望详细说明 人脑的重量;;破;哦;哦 关于微波背景辐射的问题微波背景辐射来自宇宙,而且是全方向的,这似乎意味着没有放射源啊,微波背景辐射非常符合黑体普,可黑体辐射是人类定义的,而非现实存在的.黑体辐射 [英文]:black-bod 新热水瓶有异味怎么处理 一般人脑重量占体重的 2.将一个用薄橡皮膜制成的小气球充人气体,下悬一小金属块,它们恰好在水中某一深处悬浮,如图所示,若向容器中缓缓加水,物体与气球 ( )A.仍在水中悬浮B.物体和气球将上升c.物体和气球 用“电路检测器”怎么检测电路? 甲烷稳定吗?从哪些角度或事实可以说明? 这四个"度"字有什么不同?它们各表示什么样的意思?小红病了,医生给她量了一下体温是39度;课桌角用三角板量了一下正好是90度;这个月我门家用了72度点;一种白酒的度数是40度. 铅笔芯的化学名词 人脑的重量是多少急 在一个金属杯的口部罩上一张橡皮膜,把金属杯倒扣在水中一定深度,杯刚好悬浮若在同一位置把金属杯倒过来,金属杯将. 线代,线性代数, 没看懂 求讲解 甲烷 3摄氏度和+3摄氏度 意思一样不一样 温度计在真空中可不可以测温度 真空有温度吗?什么物体在真空会迅速分解?2楼说没有物体在真空分解,那人不是也会因为内部压力而胀破吗?那么水滴在真空中会以什么形式存在呢? 在一个长100cm,宽80cm的长方体水槽中放入一个长方体铁块,铁块没入水中,这时水面上升3.4cm如果铁块长是40cm,宽是20cm.这块铁块的高是多少cm? 真空里的温度可以测量吗? 在一个长100cmm,宽80cm的长方体水槽中,放入一个长方体铁块,铁块完全浸入水中时,水面上升了4cm,如果铁块长是40cm,宽是20cm,它的高是多少? 在一个长100cm,宽80cm的长方体水糟中放入一个长方体铁块,铁块没入水中,这时水面上升4cm.如果这块铁块的长是40cm,宽是20cm.这块铁块的高是多少cm? 真空脱氯效果差的原因 真空脱氯温度的测量点在何处有时脱氯效果较差,真空度、温度、盐水流量都正常,有段时间使用亚硫酸的较多不知是什么原因?想问一下贵公司真空脱氯温度测量点安装 在长8分米,宽7分米,高100厘米的水槽中,放入一个长35厘米,宽20厘米的长方体铁块,当铁块没入水中时水面升为5厘米.铁块的高是多少? 在一个长是100cm,宽是80cm的长方体水糟中放入一个长方体铁块,铁块没入水中,这时水面上升4cm.这个铁块的体积是多少立方分米? 电池检测仪 在真空中没有介质,真空是否有温度呢? 有关于科普书籍的研究性报告(800字) RTBT-8630 蓄电池内阻测试仪怎么使用? 当杰奎琳踏上最后一级楼梯时,蜡烛熄灭了,这时她可能会想: 小学研究性的报告,要有儿童性.科学性.趣味性.800字左右.如满意有重赏 水沸腾的温度为什么受地点的影响 等物质的量的CO和CO2 其质量之比是______,分子数之比是________? 宇宙微波背景的频率?《时间简史》等多部前沿科学书籍都提到了“宇宙微波背景”,它具体是怎么回事?频率是多少? 恒温恒容的密闭容器,发生N2+3H2可逆号2NH3,当容器内气体总物质的量保持不变时,是否平衡?容器内气体总压强保持不变时,是否平衡?如果反应变成H2+I2可逆号2HI时,其他条件不变,会怎样? 分子中质子的物质的量=分子的物质的量×一个分子中含有的质子数= m M ×一个分子中含有的质子数这话怎么理解嗷 求800字的评论性文章.暑假关注国家和世界大事,选择两个焦点问题写成800字的评论性文章,不得抄袭! 这是什么花呀,求俗名与学名? 在图所示的U形管中装有水银,当把扎有橡皮膜的金属盒放在距水面34cm时,U形管中水银面的高度差是多少? 请教这是什么花,学名以及俗名不是铜钱草,铜钱草叶柄在叶子中央,叶子圆形,叶缘是带不明显的波浪锯齿的,这种花叶柄在靠近叶缘的地方,而且叶子全缘,叶形不是很圆,带点叶尖的 油、电线、电器起火时,能用水浇吗? 有一U型管中装有水银,当把扎有橡皮膜的金属盒放距水面34厘米深处时,U型管中的水银面的高度差是多少? 请问有人知道这个是什么花么?最好是学名,俗名也行, 家用电器着火会导致爆炸吗好比多用电炒锅热油的时候突然起火,如救火不及时会导致爆炸吗,类似的家用电器会吗? 什么叫挥发度及相对挥发度? 16摄氏度声音在空气中的速度 蓄电池测试仪 哪里买性价比高.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘