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

Delphi7中安装上自己编写的控件后出现的问题???

编辑:说三道四文库 发布时间:2017-10-23 11:45
HTML文档下载 WORD文档下载 PDF文档下载
我自己根据网上的资料向Delphi7中添加了一个IP地址输入控件
可是安装后,只要一使用(即将该控件放在一个Form上,然后编译/运行)后
,Delphi控件面板上的字体就会变的很大,有点象Win3.2中的那样,这是怎么回事?

组件的源码很简单,如下:
unit IPAddressEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ComCtrls, CommCtrl,
  StdCtrls;

type
  TIPAddressEdit = class(TEdit)
  private
    { Private declarations }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('yunfei', [TIPAddressEdit]);
end;

{ TIPAddressEdit }

procedure TIPAddressEdit.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  InitCommonControl(ICC_INTERNET_CLASSES);
  CreateSubClass(Params, WC_IPADDRESS);
end;

end.
Add a private vaiable at Private
    FEdit: TEdit;
Add this Code at Public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
constructor TIPAddressEdit.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 FEdit := TEdit.Create();
 FEdit.Parnet := Self;
 FEdit.Visible := True;
end;

destructor TIPAddressEdit.Destroy;
begin
 inherited Destroy;
end;
代码本身没甚么大问题,可能是因为你的D7系盗版的原因吧?呵呵
网页浏览器进入再造新时代 AMD揭露HSA运算架构新技术hUMA细节 美团悄然上线云主机服务:与亚马逊殊途同归,还是另有谋划? 微软发布deep-tech团队招募令,期望获得下一代开发者的支持 2013谷歌I/O开发者大会:发布多个软件产品和服务 C语言实现二分法求解方程 开发测试云与虚拟化解决方案 学苹果?微软淘汰Points支付系统改用Gift cards 甲骨文改变Java版本号命名方式 [CTO俱乐部第97期]中科院、腾讯、深圳明源研发团队管理经验分享 Android Studio来了,它能取代Eclipse吗? Google Play Game不够开放,被OpenKit炮轰 Google Play Game Service详解 不仅提供API更提供后端支持 IBM Power走向Linux,是必然的! 美国国家安全局解密特工培训手册:如何利用谷歌等大众搜索工具搜集保密数据 微软IE10如何保护上网安全(大图) 谷歌无畏苹果的理由:强力的算法和基础设施架构 开发者热议异构统一内存访问技术(hUMA) 千万级并发实现的秘密:内核不是解决方案,而是问题所在! Apache RewriteRule重写规则语法入门 IDC:2013 Q1 Android和iOS出货量占92% WP首超黑莓 传雅虎欲10亿美元收购轻博客网站Tumblr A Beautiful Mess:如何赚男人女人的钱 CSS、JavaScript开发者必备的10款最佳工具 IBM推出API管理平台 抢占API经济市场份额 2013中国云计算榜单之一:15云平台,谁主沉浮? 移动周报:百万壁纸、85后程序媛,我为梦想代言! 电信天翼开放平台:为App开发者免费提供云存储和云主机服务 Google新的Web UI库:Ploymer 研发周报:让开发者高效编程的10个新框架 拯救行将就木的PHP:谷歌为GAE添加PHP支持 欢迎大家加入我建的QQ群 请问一下各位是如何调用第三方的DLL。例如:华为DLL.清华深资DLL。等等。。。 QRBand能否自动换页的问题。 请问有哪位 有ACCP的的全套资料第一学期第一学年 资料 一个关treeview的问题 sql server有没有办法看一个image类型值是否有无? 嵌入到outlook控件的问题 一个奇怪的问题: 怎么老打不开数据库set db= new notesdatabase("","data.nsf")??? 如何调用DLL啊? JSP怎么样调用sessionbean? 如何在Cell单元格显示数据库中已image类型存放的图片?(急) php有什么好办法把mysql里面枚举型字段的各个项目读出来? easy problem 文件问题 在线等候 北京掌中仙境技术有限公司招聘程序开发人员 请问win2003中如何起用3d? 关于迭代开发模式 主菜单的字体怎么修改? C#中自动生成SQL语句(update,delete)是否并不怎么好呢? 关于在VC中开发数据库使用ORACLE的若干问题?(SQL SERVER 到 ORACLE转换的问题) 如果更新有外键约束的主键呢? 谁有播放*.dat的asp组件啊!~ 这是一个控件源码,为什么只有在运行时,才能显示控件的图形,请指教! 电脑一进系统就待机……sos 浅谈视图(Views) 本人急需自然景物的分形源程序(最好包括山水树),急!可加分 高分求免费电影下载网站,最好是一些提供最新电影的网站 请教axis的开始的安装配置问题,谢谢~ 如何用ASP实现往已经建好的表中添加新的字段? TQuery返回的字段类型信息如何区分numeric还是float? 为什么弹出来的菜单偏离我的点的位置很远? 高手请进!!! 用sqlDataAdapter自动产生的update,delete语句是否最优? 小问题,50分,我的CRichEditCtrl继承类为什么在输入汉字时不触发 WM_CHAR 消息!! 100分,如何将一个类实例存入数据库,并取回? JavaScript问题,请大家帮忙。 急,急,急!如何做一个循环让程序延迟3秒执行? 有意思的问题,请高手指教!(100*x) 如何根据条件来得到DataGrid需要显示的列!!! php运行环境配置 CSDN怎么总出错啊?ft... 有一事不解,进来看看吧,up有分 菜鸟提问:DOM中如何load一个.xml文件 mssql2000的jdbc驱动是否不支持PreparedStatement HELP!!! 无论打开任户文件夹,都提示WAS VIRUS!!!DESTORYED Rose 菜鸟的傻问题 谁用MSChart做过曲线图??急用!! 1000元出售lotus平台B/S模式OA系统源码,功能说明请看,需要详细资料的可来信索取 为什么我在dbgrid里选择记录后,其SelectedRows属性还是为0 紧急:窗体不能打开 笑话接力,大家都来贴贴 怎么写《妈妈的味道》这篇作文?麻烦帮忙写个开头和结尾 还有帮我选几个典型事例 “国破山河在,城春草木深.”中,“破”和“深”字体现了诗人怎样的思想感情? 图中共有多少个正方形? 作文《妈妈的味道》 用world造句,随便加上音标 求图中有几个正方形 效应细胞能杀死靶细胞细胞毒性T细胞能杀死靶细胞吗 类似自相矛盾的成语越多越好 小明在做一道数学选择题时,经过审题,他知道在A,B,C、D四个备选答案中,只有一个是经过审题,他知道在A,C、D四个备选答案中,只有一个是正确的,但他只能确定选项D是错误的,于是他在其 根据《鹿和狼的故事》给凯巴森林设计一块警示牌 要小学水平的 50字左右 see the world造句 图中共有几个正方形 现在有人想在凯巴伯森林入口处竖一块警示牌,你认为该在上面写些什么? 我要购买小型珩磨机,加工范围为Φ4--Φ30MM的孔径,长度50MM,希望师傅给点意见,用哪种型号的.给我推荐下,也可以留个联系方式! 买5个凳子和5把椅子共付100元买2个凳子和5把椅子付61元凳子和椅子单价是多? 贝壳炒着吃怎么弄啊? 锻造半径为30mm 高为30mm的圆柱形毛坯 需要截取底面边长为50mm的方钢多长?^一元一次方程解 怎么挑甜的橘子? 贝壳怎么炒 求纳兰性德的金缕曲 赠梁汾译文不要赏析! 如果两杯里都加入60克橘子粉,哪杯橘子水甜一些?甲杯有水300,乙杯有水250 怎么炒贝壳?我买了贝壳 怎么炒 高中语文有没有学过纳兰性德的金缕曲-赠梁汾?有一个朋友问起,我忘记了,高中语文有没有学过这首词? 用什么方法可以将青桔子催熟,变甜我爷爷家里有颗桔子树,但从去年下半年我爷爷他们就没有在家里住了,桔子树也一直没人管.昨天我们回去把树上的桔子都摘下来了,一吃,酸得要死! 请问有 油漆工的徒弟叫啥?(急转弯) 怎么练习飞刀 鳞状细胞病变阴性是什么意思 请教一道电路习题,第32题 怎样练习飞刀有助于回答者给出准确的答案 低度鳞状细胞病变什么意思 电路图练习题 请问飞刀好练习吗你会用飞刀飞苹果吗 鳞状细胞病变是什么意思? 动物的皮下脂肪影响动物体表的散热吗? 镁在空气中充分燃烧,发生哪些反应? 室温下,在pH=13的溶液中不可能大量共存的是如图 细胞的定义是什么? 关于句子的理解(急需答案)原句:1、把自己当作别人2、把别人当作自己3、把别人当作别人4、把自己当作自己理解:1、待人处事不能总是以自我为中心,要多为他人着想:从他人的角度、 新手 想练飞刀 请问哪里有直射的飞刀 长什么样不要别人的复制粘贴 在三角形ABC中,a,b,c分别对应角A,B,C的对边,C=2A,sinC=3/2sinA(1)求sinA,sinC的值(2)若ac=24,求边b的长 加急! 理解:他把他的大提包扔在一边,怀里紧紧地抱着一只纸箱子. 初学者用什么样的飞刀好?我想自己做一个,打铁的超级简易版我会,但是要做成什么样的?求图……我才初三,不会算空气阻力什么的.据说可以把铁钉砸扁做飞刀, -----What do you think of the Prime Minister's speech to the nation?1.---What do you think of the Prime Minister's speech to the nation?---I like ____of what he said.A more B many C few D muchWHY2.He asked several questions____the professor who g 什么动物不长毛 小学四年级苏教版数学解决问题100题题目谁有?急! 醉里吴音的吴音指的是哪里的语言 动物和人为什么会长毛,为什么鱼类不能? 镁和空气反应的物质是什么镁和空气反应,生成了一层灰黑色外衣,为什么这层外衣不可能是氧化镁? 某企业在第1年初购买一台价值为120万元的设备M,M的价值在使用过程中逐年减少.从第2年到第6年,每年初M的(Ⅰ)求第n年初M的价值an的表达式;(Ⅱ)设 ,若An大于80万元,则M继续使用,否则须 为什么人不像动物一样浑身长毛人类和其他动物一样需要抵御寒冷,为什么人的毛退化了呢 热爱生命资料简写 湖南某高新区引进一高科技企业,投入资金720万元建设基本设施,第一年运营费用120万元,以后每年增加40...湖南某高新区引进一高科技企业,投入资金720万元建设基本设施,第一年运营费用120万元 动物冬天是怎样过冬的 谁能帮我整理一下我现在的生活状况,我现在很迷惘,每天都感觉很难受 X是2与8的等差中项,则X与5的等比中项是? 300mm长50mm宽的预留孔灌浆深度不能超过多少? 热爱生命 简写 最后几章快 高二数学必修五等差等比数列 珍珠对于贝壳(蚌)的生理意义?这里不是问珍珠的形成原理哦, 苹果,橘子100克,苹果的5分之1比橘子的4分之1还多2千克,苹果,橘子各多少克 美国尼米兹号航母进驻地中海 称随时可陀螺般从早忙到晚 1/5澳洲人没时间美“毒妈”扯伤儿子阴囊用胶粘合 恐遭美媒:斯诺登掌握美搜集中俄伊朗等国情埃及性侵泛滥 美民间组织绘制“性侵地浙江绍兴纺博会创新思路 外商采购看重历届金钟奖女星红毯穿着暴露走光盘点(世界旅游旅行大会再次落户中国 将关注北京拟规定“停车三分钟熄火”被质疑无美国前“新泽西小姐”意外死亡 前男友专访世游会总裁:雾霾难阻外国游客来华日本网友:日本人爱自杀或与性格相关6名被扣韩国公民回到韩国中国新锐设计师作品亮相宁波国际服装节韩国双胞胎整形变美女脸 网友惊叹:太外媒:斯诺登握有美国针对他国情报活动埃及性侵泛滥 美民间组织绘制“性侵地农业国阿根廷被曝过度依赖化学物增产 美国前“新泽西小姐”意外死亡 前男友英国王储查尔斯不急于登基 忧加冕成“研究显示种族因素制约美亚裔收入 男女假酒盛行 低价不低 未成年人竟可随便机构扫货蓝筹或掀波澜清远国防兵器展昨天开幕公车治腐不缺技术只缺态度出租屋水费将执行终端水价 具体政策有三美国人获诺贝尔经济学奖官员强奸幼女案被抗诉买了二手车 保险过户要及时进一步加大建金融城力度今起气温降5℃报案者话吴宇康係“撞墙”而死广州市卫生局局长做客《行风面对面》剖析根源更尖锐些 整改措施更管用些办临时车牌 一个窗口搞定广东毒贩街头飞车 撞开警车又撞2辆撞举报一人奖励五千佛山9月最缺裁剪缝纫工东莞原官员 受审时痛哭9月CPI涨幅超“警戒线”胡春华参加广东民政厅民主生活会“苦孩子”荞麦
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘