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

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

编辑:说三道四文库 发布时间:2018-04-26 03:56
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系盗版的原因吧?呵呵
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘