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

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

编辑:说三道四文库 发布时间:2018-01-22 08:39
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系盗版的原因吧?呵呵
鏖战云端——亚马逊的生存法则 如何保住公司的人才:创造良好的学习氛围 主宰全球的10大算法 专访Google数据科学家彭晨:大数据成为潮流走近各行各业! 强横Metal技术来袭,能否取代OpenGL? 能否动态指定循环层数呢 如何把.net程序部署到没有装.net Framwork 的机器上 馬英九出任總幹事 連戰信心大增 一个简单的DAO问题啦!各位老大帮忙啦? 编译时出现:"post.jsp": Error #: 450 : duplicate definition of variable isGuest in method _jspService(javax.servlet.http.HttpServ 怎么实现console里的输出固定在一行,即不要滚屏? 我有一个VC6程序原来连access没错,然后改为sql server 2000就不能Select值了??? Delphi 一个小问题!! 请问怎样才能把程序中的变量(不是字段值)等输出到frReport1的报表中的适当的地方呢? 和谐什么城市的成语 用一根长120厘米的铁丝围成一个长宽高的比是6:5 vi设计吾言吾道是什么意思来的? Take Too Long To Dress,An ( )见( )山、( )秋( )节.成语填空.求大 用一根240cm的铁丝扎成一个长方体框架,这个长方 蔬菜水果中含有丰富的____素和纤维素?同学说是维 含纤维素丰富含脂类少的水果蔬菜 代表和谐之意的成语表达和谐的美感 律师称斯诺登将从11月起在俄大型网站美国曾要求日本修宪 欲促日帮忙越战奥巴马医改网站安全漏洞细节曝光 内测联合国计划成立预警机构 防范小行星撞俄罗斯称政府内部系统可防止领导人电话资金驻扎 次新股反弹强劲投资人该如何透过营销看清平台“真容”醋溜阳白菜机构密集调研新能源汽车产业链蟹粉芦笋年糕京都的故事极品智能嚣张的军阀纵横异界的狂战士重生之完美一生长岛旅游景德镇旅游枫泾旅游呼和浩特旅游雅鲁藏布大峡谷旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘